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INTRODUCTION 


Un système Informatique sans lecteur de disquettes n’est pas 
complet et ne permet pas d'effectuer des travaux professionnels. Mais un 
lecteur de disquettes est aussi insuffisant : pour qu'il soit performant, il faut 
qu'il soit accompagné d’un système d'exploitation (DOS) digne de ce 
nom. Aujourd’hui, c'est la réalité pour l'ORIC ATMOS, grâce à Jasmin et à 
son TDOS. Plus de 40 instructions faciles d'emploi, complétant le BASIC 
de l'unité centrale et assurant une gestion efficace et sophistiquée des 
fichiers à accès séquentiel et à accès direct. Ces performances ouvrent le 
champ aux utilisateurs professionnels qui, pour le prix modique de 
l'ensemble, auront entre les mains un magnifique outil de travail. 


L'amateur donnera aussi également une nouvelle dimension à 
son système micro-informatique. 


QUESTIONNAIRE 
(à retourner aux Etablissements TRAN) 
1 Celivre vous a-t-il satisfait ? OUI NON 
2 Le trouvez-vous complet ? OUI NON 
3 Donnez une note (sur 10) à chacun des chapitres : Note 


CO pas assez de programmes 


5 Quels chapitres auriez-vous aimé voir plus développés ? ........ 
6 Yat'il assez d'exemples : 


[1 OUI 
[] NON 


Toujours soucieuse de la qualité de ses produits, et de la satis- 
faction de ses clients, la Société TRAN fournira gracieusement aux utilisa- 
teurs toute nouvelle version du TDOS. (disquette non fournie). 


Enfin, et comme nous l'avons dit, un DOS est un instrument 
scientifique de gestion ; la protection contre les erreurs n’est pas aussi raf- 
finée que pour un BASIC. Aussi, est-il fortement recommandé de lire ce 
livre avec attention : un DOS n'est pas un jeu. Il vous sera facile de « coin- 
cer » le TDOS, au risque de détruire vos fichiers, mais où est l'intérêt ? 


Pour terminer, rappelons qu'il est d'usage de toujours conserver 
un double de chaque disquette. 


Bon travail avec Jasmin. 
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Le « catalogue » d'une face de disquette 


1° - LA DISQUETTE : ASPECTS PHYSIQUE ET LOGIQUE 


Une disquette se présente sous la forme d’un petit disque, tout 
comme nos 33 tours familiers. Elle peut être « écrite » sur ses 2 faces. 
Pour les lecteurs les plus simples, il faut retourner la disquette pour pou- 
voir accéder à la totalité de sa capacité. On distingue, par convention, une 
face A et une face B, qui sont évidemment absolument identiques. Le lec- 
teur de disquettes Jasmin offre pour cela une commodité : une petite LED, 
située sur la face avant du lecteur, s’éclaire au vert pour la face A et en 
rouge pour la face B. 


Une disquette vierge est absolument inutilisable telle quelle. En 
effet, pour profiter au maximum des possibilités (rapidité, fiabilité) d'une 
telle mémoire de masse, il faut, comme pour une carte d'Etat Major, « qua- 
driller » la disquette afin que le DOS — logiciel d'exploitation du système 
— puisse stocker et retrouver quasi instantanément et de façon sûre une 
information. Celle-ci se présente de façon classique : un octet = groupe 
de 8 bits valant O0 ou 1 = une information élémentaire. Ces informations, 
toujours par soucis d'efficacité, sont groupées sous le nom général de 
fichier, un fichier pouvant être un programme basic, un programme en lan- 
gage machine, ou plus généralement un ensemble d'informations liées 
par un point commun. On distingue ces fichiers par leur nom, absolument 
arbitraire, et par leur type (basic, binaire, data...). 


Revenons à la structure de la disquette. Cette structure est abso- 
lument « transparente » pour l'utilisateur, c'est-à-dire qu'il ne peut pas 
agir dessus. Îl en aura simplement connaissance par le fait que le DOS lui 
indiquera automatiquement, sur sa demande, la place occupée par un 
fichier donné. 


Cette structure est la suivante : le disque est découpé en 41 pis- 
tes concentriques (circulaires) sur chaque face. Contrairement à un 33 
tours, ces pistes ne forment pas une spirale et donc ne constituent pas une 
spire unique. Elles sont donc indépendantes. A leur tour, ces pistes sont 
divisées en secteurs : chaque piste est découpée en 17 secteurs, chacun 
d’entre eux occupant donc un arc de cercle d'ouverture 360 : 17 — 21,20. 
Ces secteurs sont l'unité de stockage de base : ils sont prévus pour être 
occupés par 256 octets, soit 256 x 8 = 2048 bits. 


Cela veut dire qu'un fichier contenant 12 octets, occupera un 
secteur, tout comme un fichier de 254 octets. De même, un fichier de 300 
octets emploiera 2 secteurs. Il faut bien voir qu'il ne s’agit pas là d’un 
« standard », mais d’un compromis effectué par le concepteur du DOS. Il 
aurait été possible de concevoir des secteurs de 1024 octets par exemple, 


mais alors les trois fichiers précédents auraient occupé un secteur cha- 
cun, d’où une perte sèche, au point de vue stockage de 3 x 1024 — (12 + 
254 + 300) = 2504 octets, au lieu de 4 x 256 — (12+ 254 + 300) = 456 
octets. 


Mais — nous l’avons déjà dit — la connaissance de ce « quadril- 
lage » n’est pas nécessaire pour utiliser un lecteur de disquettes. Nous 
allons donc distinguer la disquette « physique », qui est telle que nous 
l'avons décrite, de la disquette « logique » dont nous aurons seule la 
connaissance. Celle-ci est définie de la manière suivante : 


® à chaque unité de lecteur, sera attribué un numéro d'unité, 
qui le distinguera des autres, 

® à chaque disquette, sera attribuée un nom, appelé nom de 
volume, 

® à chaque fichier d’une disquette, sera attribué un nom de 
fichier et un type qui indiquera quel est le type des informations stockées 
- SOUS ce nom : programme basic, en langage machine... 


L'exploitation d’un fichier donné se fera alors de la façon sui- 
vante : 

® choisir la disquette convenable, 

® choisir le lecteur qui sera exploité, 

® choisir le fichier auquel on veut accéder. 


Le système est alors complètement défini et il n’y a ambiguité ni 
pour le DOS, ni pour l'utilisateur. Il est alors commode d'’affecter, un 
numéro, appelé numéro logique du fichier qui permet de condenser 
l'ensemble de ces informations. C’est là l'aspect « disquette logique », 
par lequel il peut y avoir effectivement dialogue entre unité centrale du 
micro-ordinateur et sa mémoire (externe) de masse. Le DOS est le logiciel 
qui permet ce dialogue, mais qui, de plus, intègre un certain nombre de 
commandes fort proches du BASIC au point de vue syntaxe ; celles-ci 
assurent l'exploitation de toutes les informations présentes sur la dis- 
quette. Un lecteur de disquettes est donc à ce point de vue autre chose 
qu'un magnétophone. Cé dernier ne permet que le stockage et la récupé- 
ration d'information ; il ne peut pas les rechercher, ni les modifier directe- 
ment sur la bande. On peut même estimer que ces deux périphériques 
sont complémentaires. 


piste O 


Disquette 


Dernière piste 


L°] 


Secteur N de la dernière 
piste 


Secteur N de la piste O0. 


une disquette formatée 
il y a 41 pistes par face ; chaque piste est divisée en 17 secteurs. 
Chaque secteur contient 256 octets. 
Cela fait un total de 176 koctets par face. 


Une disquette 3 pouces possède une protection, qui permet 
d'empêcher qu'on écrive dessus, tout en en permettant la lecture (tout 
comme pour une cassette audio — mais là la protection est définitive 
puisqu'il faut casser une languette — ou une cassette vidéo). A l'origine, 
un petit trou, marqué « À » ou « B » suivant la face, est fermé par un index 
rouge. Devant ce trou, sur la tranche de la disquette, se trouve une lan- 
guette située dans la partie gauche d'une fente. La pointe d’un stylo bille 
permet de déplacer cette languette vers la droite et de protéger ainsi la dis- 
quette contre tout risque d’effacement accidentel. L'index rouge disparait 
alors et le trou est libéré. Cette opération est bien sûr reversible : le retour 
de la languette à sa position initiale (vers la gauche) permet de nouveau 
d'écrire sur la face correspondante de la disquette. 


Remarquez sur les côtés du boîtier des fentes permettant le gui- 
dage de la cassette dans son boîtier. Îl est curieux de constater que cette 
protection apparemment mécanique soit prise en compte par l’électroni- 
que. 


Il faut bien sûr ne pas déplacer un lecteur Jasmin, contenant une 
disquette. De préférence, celui-ci doit être enlevé avant la mise hors ten- 
sion de l'appareil. 


Parts Descriptions : Description 


Write protect hole for side B 

Anneau de protection pour la face B 
Write protect hole for side A 

Anneau de protection pour la face À 
Shutter plate 
Porte de fermeture 
Hub 
Moyeu 


Languette de protection pour la face 
Write protect hole 


Guide slot __ 
Fente-guide 
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Unheard of High Performance Realized with Ultra-Miniature Floppy Disk Drive 


HITACH/'s advanced electronics technology has made the floppy 
disk so small in size and so high in performance. This newest version 
is about 1/5 of the size and 1/2 of the weight of the conventional 
5-inch floppy disk drive hitherto available. It has the drive capability 
of 500 Kbytes per disk (both sides A and B usable), which is 
significantly higher than that of the mini-floppy disk drive. 


# Features 

® Plug compatible with mini-floppy units. 

© One-touch loading/ejecting mechanism is adopted for insertion 
and ejection of the disk merely by single hand based on the one 
touch method. 

® Long-life and high-performance brushless DD (Direct Drive) 
motor is mounted on board. 

® High-speed access (55m sec on an average) steel band mecha- 
nism is in use. 

© HFD 305$ disk unit (optional) is so compact that it can readily be 
put in the bust pocket. 


m SPECIFICATIONS 


Unformatted 
Disk capaci 
(double sideu) | Bytes 250 500k 
Surface capacity Bytes 125K 250K 
Track capacity Bytes 3125 6250 
Formatted 

Storage | Byte/sector 128 | 256 | 512 | 256 [| 512 | 1024 

PV l'Sector/track 16 9 5 | 16 9 5 
D, Bytes | 164K | 184K | 205k | 328k | 360k | 410K 
Surface capacity Bytes 82K 92K 102K 164K 184K | 205K 
Track capacity Bytes | 2048 2304 3560 4096 4608 5120 
No. of memory 
: blocks 2 2 

Disk No. of cylinders 40 40 
Total No. of tracks 80 80 
System FM MFM 

pare ro BPI 4473 8946 

System | Track density TPI 100 100 
Data transfer bits/ 
speed sec 125K 250K 
Average access 
time msec 55 
Between tracks msec 3 

Process | Settling time msec 15 

time Average rotation 
stand-by time msec 100 
Motor start time sec 1 max 

Media RPM rpm 300 

Dimen- | WxHxD mm 90 x 40 x 150 

sions & : 

Weight Weight kg 0.7 


12V +5% 1.0A max 


5V 45% 0.8A max 


Media used 


3" compact floppy disk 


Drive interface 


Plug compatible with 5.25” FDD 
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2° - MISE EN ROUTE DE JASMIN 


Vous disposez donc d’un lecteur de disquettes Jasmin et d’un 
micro-ordinateur adapté. La liaison entre ces deux éléments est simple : 
un cable plat (dit en nappe) muni d’un connecteur. || n’y a pas de possibili- 
tés d'erreur de branchement : le connecteur est muni d’un détrompeur, éli- 
minant toute ambiguité. Ce cable plat apporte également la tension de + 
5V nécessaire au fonctionnement de l'unité centrale. Il faut donc suppri- 
mer l'alimentation fournie avec celle-ci. L'ordre des opérations est le sui- 
van : 


® Jasmin étant débranché (si vous avez un doute sur la posi- 
tion de l'interrupteur) du secteur, connectez le cable plat au micro-ordina- 
teur, 

® connectez Jasmin au secteur, puis commutez son bouton de 
mise en marche. Nous supposons alors le moniteur branché (comme 
d'habitude), 

® une magnifique image apparaît sur l'écran (je vous mets au 
défi de réaliser la même par programme !) : lignes horizontales de toutes 
couleurs, clignotements. Au bout de quelques secondes, apparaît 
l'image classique : 


ORIC EXTENDED BASIC V1.1 
© 1983 TANGERINE 

xxxxx BYTES FREE 

READY 


® si cela ne s’est pas produit, il faut vous munir d’un crayon ou 
d’un stylo bille (le même que celui qui vous sert d'habitude à faire le 
RESET sous l’'ORIC), et appuyer sur le bouton R ou RESET du Jasmin. 


ATTENTION : bien que portant le même nom, ces deux 
« RESETS » n'ont pas la même fonction. Celui de l'ORIC est dit « à 
chaud » et permet de récupérer la main sans perdre les informations pré- 
sentes en RAM (les programmes...). Par contre, celui de Jasmin est un 
RESET « à froid » et a les mêmes conséquences qu'une mise sous ten- 
sion d'ORIC : perte de tous les programmes présents en RAM. Ce bou- 
ton, par la suite, ne doit donc être utilisé qu’en dernière extrémité. Remar- 
quons que « BOOT » produit également un RESET à chaud et permet 
dans certaines circonstances de récupérer la main. 
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® Cette fois-ci, l'image précédente doit apparaître. Sinon, étei- 
gnez Jasmin et recommencez la procédure. 

® Introduisez alors la disquette maîtresse fournie avec Jasmin. 

® Appuyez sur le bouton « B » ou « bootstrapping ». La dis- 
quette se met en rotation pendant quelques secondes, puis vous obtenez 
sur l'écran : 


TRAN DISK OPERATING SYSTEM VF1,0 
© 1983 TECHNOLOGIE RECHERCHE 
& APPLICATIONS NOUVELLES. READY 


Il s'est alors passé la chose suivante : 


le DOS du Jasmin occupe la RAM en overlay d'ORIC. Que cela 
signifie-t-il ? La mémoire d'ORIC est de 48 K (utilisateurs, mais en fait les 
mémoires d'écran occupent une partie de cet espace), plus 16 K de ROM 
contenant le BASIC. Mais en fait, ces 16 K recouvrent 16 K de RAM qu'il 
est possible d'exploiter, si l’on n'utilise pas le BASIC. 


16K ROM. 


Ed D DU. “e 
48 K utilisateurs 16 K RAM 


C'est ce qui explique la présence d’une « petite » ROM dans 
Jasmin (en fait une EPROM ou PROM) : Elle est chargée en mémoire vive 
lors de l'appui sur le bouton « Bootstrapping » et permet par la suite de 
remplir les 16 K de RAM en overlay par le TDOS. Une fois cette opération 
terminée, le message « TRAN DISK... » disparaît et un READY annonce 
la disponibilité du système. Désormais, chaque fois que l’on tapera ! suivi 
d'une commande appropriée et syntaxiquement correcte on aura accès 
au DOS, c’est-à-dire la possibilité de dialoguer avec le lecteur. 


A la mise sous tension, apparaît un curieux dessin. Celui-ci dis- 
paraît spontanément, ou bien après l’action sur le RESET Jasmin. 


37631 BYTES FREE 
Ready 
Le 


Et voilà ! Tout est O.K. 
Introduisez une disquette « maîtresse », porteuse du TDOS et 
appuyons sur le bouton « BOOT » de Jasmin. 
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3631 BYTES FREE 
Ready 
€ 


Le Bootstrapping s'effectue correctement et dure 
secondes. 


quelques 


® 1984 TECHNOLOGIE RECHERCHE 
& APPLICATIONS 


NOUVELLES 
83130 —- 


FRANCE 


S'affiche alors le logo « TRAN », la RAM en overlay est alors 
chargée par le TDOS. 
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@ 1984 TECHNOLOGIE RECHERCHE 
& APPLICATIONS NOUVELLES 


83138 - FRANCE 


Opération terminée. ORIC est prêt, le TDOS est présent. 


30 - L'APPEL DU DOS 
@ l'adresse + 2F5 


Quelque soit la fonction que l’on désire réaliser avec le lecteur 
Jasmin, il est essentiel que celle-ci soit précédée du point d'exclamation : ! 


De manière générale, pour ORIC, le « ! » est une instruction per- 
mettant d'appeler un programme (ou routine) en langage machine, dont 
l'adresse (hexadécimale) de branchement doit être préalablement char- 
gée à l'adresse # 2F5. Ceci peut poser quelques problèmes avec certains 
logiciels du commerce qui utilisent eux également cette commande. Il fau- 
dra donc procéder ainsi : après le chargement d’un tel programme, le fait 
d'utiliser « ! » n’appellera plus le DOS, mais le programme en question. 
Pour avoir de nouveau accès au lecteur Jasmin, il faudra d'abord effectuer 
la commande : 

DOKE + 2F5, 1024 


On pourra d’abord relever — si toutefois cela est possible — le 
nombre présent en + 2F5 par : 
PRINT DEEK (+# 2F5) 
de manière à pouvoir par la suite le repoker en # 2F5 et retrouver ainsi la 
possibilité d'utiliser le programme. 


LA SYNTAXE : 

La plupart des commandes exigent de fournir un nom : noms de 
fichiers, noms de volume... Ces noms peuvent cependant être des varia- 
bles chaînes. Leur longueur est dans tous les cas tronquée à droite, à par- 
tir du huitième caractère. 


® Ils ne doivent contenir aucun mot clé du BASIC. 

© Ils doivent obligatoirement commencer par un caractère 
alphabétique (A à Z) et ne doivent pas comporter d'espaces (code ASCII 
= 82), ni de point :., de signe égal : —, de ‘ni de virgule. 

Enfin, une commande syntaxiquement groupée ne doit égale- 
ment pas comporter d'espace. 


Donnons quelques exemples : 


— A$ = « CHIMIE » : ! SAVE « CHIMIE » .................... oui 
SAVE CHUTES use une fu ans ue ae Et oui 
— ! SAVE « PIN UP » .................. non, car il y a un espace 
— !LOAD « PRINT » ............ non, car il y a un mot clé du BASIC 
— lRENAME « 21234,5» ............... non, car il y a une virgule 
mr te PUPTESS CC rrraniisses dits omndRans less TR AD oui 


ST SAVE S RADIDIN SE ES  dabann diabutns nee oui 


De manière plus générale, la totalité de ce qui se trouve entre 
guillemets dans une commande peut être fournie sous la forme d’une 
variable de chaîne de caractères. 


LA DESCRIPTION SYNTAXIQUE : 


Pour chaque commande sera décrite un modèle indiquant les dif- 
férentes quantités intervenant dans celle-ci et la syntaxe à utiliser. Nous 
utiliserons le symbolisme suivant : 

® les parties d'une commande situées entre parenthèses sont 
optionnelles et leur absence amène le DOS à prendre une valeur par 
défaut. Celle-ci est toujours clairement indiquée dans la description de la 
commande. 


Exemple : ! CAT « (numéro de lecteur.) » 
signifie que ! CAT «>» donnera le catalogue de la disquette présente dansle 
lecteur n° 1 (ou le seul s’il n’y en a qu’un) alors que ! CAT « 2. » donnera le 
contenu de la disquette située dans le lecteur n° 2. 


® Les parties soulignées par un trait continu sont obligatoires et 
ne peuvent être omises. 


Exemple : pour un programme BASIC s’appelant CHIMIE, on 
pourrait décrire le formalisme de l'instruction SAVE par : 
! SAVE « (numéro de disque.) NOM PROGRAMME » 
Ainsi, les deux expressions suivantes sont correctes : 
! SAVE « 1.CHIMIE >» (équivalent à ! SAVE « CHIMIE ») et 
! SAVE « 2.CHIMIE » 


® Les parties soulignées par un trait discontinu sont obligatoires 
de façon conditionnelle. La condition de présence obligatoire est toujours 
indiquée clairement dans le texte décrivant la commande. 


Exemple : pour sauvegarder un programme en langage machine 
ou en BASIC, on pourrait décrire la syntaxe commune de la façon sui- 
vante : 

Cela signifie que, pour un programme en langage machine, il est 
obligatoirement de fournir l'adresse AD de la première instruction de celui- 
ci et l'adresse AF de la dernière instruction. Dans un tel cas, (.TYP) sera 
remplacé par .BIN (BIN pour binaire). 


Ainsi : 
! SAVE « CHIMIE » et ! SAVE « 2.CHIMIE » sont corrects pour un pro- 
gramme BASIC, alors que : 
! SAVE « MONITEUR .BIN, # 9000, # 10000 » 
!SAVE « 2.MONITEUR.BIN,X,Y » (Xet Y ayantété préalablement définis) 
sont des expressions correctes pour un programme en langage machine. 
Par contre : 
! SAVE « MONITEUR, # 9000, Y » ne l'est pas, car il manque l'indicateur 
de type (.BIN). 


A LA DECOUVERTE DU TDOS 


1° - FORMATTER UNE DISQUETTE 


Nous avons décrit précédemment l'aspect physique d'une dis- 
quette ; mais une disquette vierge (sortie de sa boîte et de son cellophane) 
ne présente pas cet aspect. Il n’y a ni pistes, ni secteurs. 


Le premier rôle du DOS est donc de la rendre capable de stocker 
des informations. Cette opération s'appelle le formattage. |! n'y a bien sûr 
aucun indice physique permettant de séparer les pistes et les secteurs. Ce 
sont donc des informations binaires, inscrites par le DOS sur la disquette, 
qui délimiteront les frontières entre les différentes unités de mémorisation 
de base. D'autre part, le nom de la disquette, puis plus tard les noms de 
fichier, leur longueur, leur type seront également inscrits sur celles-ci. Il 
faut donc bien voir que cette opération de formattage va avoir pour consé- 
quence d'utiliser une certaine place sur la disquette. Mais ceci, l'utilisateur 
ne le sait pas : l'opération est transparente pour lui. C'est pour cela que la 
structure physique de la disquette que nous avons décrite est celle d’une 
disquette formattée, c’est-à-dire telle qu'elle se présente dans son état 
« logique ». Il n'est en fait pas impossible qu'il y ait en réalité 44 pistes, 
dont 3 correspondraient aux paramètres de formattage et ne seraient donc 
pas exploitables, si ce n’est par le DOS, qui s'en servirait à l’insue de l'unité 
centrale. Cette opération de formattage s'effectue en 3 temps. Il est 
d'abord essentiel de posséder une disquette dite maîtresse possédant 
d'une part le DOS, d'autre part un programme utilitaire appelé « FOR- 
MAT ». Ce devrait être votre cas. suivez alors le film des événements : 
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Employons une disquette contenant l'utilitaire « FORMAT ». 
Attention, il s’agit-là d’un programme (BASIC) distinct du TDOS et est 
donc lancé comme un programme quelconque par l'expression : ! « FOR- 
MAT » (et RETURN). É 


La préparation à l'opération de formattage s'effectue alors . 


21 


puis se termine : 


Il vous est alors demandé de « changer de disque », c'est-à-dire 
d'extraire du lecteur la disquette contenant l'utilitaire FORMAT et de la 
remplacer par une disquette vierge : 
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Appuyez sur « O » : le formattage s'effectue. || vous est alors 
demandé si vous voulez procéder à un nouveau formattage ; c’est certai- 
nement votre cas, puisqu'il reste la seconde face (B ou voyant rouge), 
vierge, de la même disquette. Extrayez donc celle-ci, retournez-la et intro- 
duisez-la de nouveau dans le lecteur. Le voyant rouge s'allume. Appuyez 
sur « O ». Dès que « Ready >» apparaît, l'opération est terminée. Vous 
répondez alors « N » (NON) à la nouvelle demande de formattage. 


La mise en œuvre de cette disquette n’est pas terminée pour 
autant. || vous faut en effet maintenant initialiser les deux faces de la dis- 
quette, c'est-à-dire en particulier leur donner un nom. Nous avons un seul 
lecteur, il s'agit de notre troisième disquette. Nous tapons alors : 

!INIT « 1.DISK 3B » 


| L ANSE AS 
premier lecteur nom donné à la face considérée 
et Return. 


Nous retournons la disquette, et tapons : 
!INIT « 1.DISK3A » (et Return) 
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Notre disquette est prête (enfin !) à recevoir des programmes. Il 
est judicieux alors de la rendre « maîtresse » sur ses 2 faces, c'est-à-dire 
de la rendre porteuse à son tour du TDOS. C'est très simple: tapons : 
! MASTER « 1.TDOS » (et Return) puis après un retournement de la dis- 
quette, recommençons. La mise en route de la disquette est terminée. 


lINIT“1 DISK3B" 


Re 
TIATT DOISK3a" 


ad 
A: 


*ead 


TER" 1 TOOS" 


_ 
STER"1.TO0S" 


esadu 
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Nous pouvons alors demander le « catalogue » de la disquette. 
Tapons : ! CAT «» (et Return). Le nom de volume s'affiche (DISK3A), puis 
le (seul) programme : TDOS ; les indications U (fichier non protégé : 
Unlock), SYS (système d'exploitation), S (séquentiel), 62 SECTORS 
s'affichent également, ainsi que le nombre de secteurs libres. 


Pour terminer ce paragraphe, supposons que le nom choisi pour 
cette face ne convienne pas (ou plus). Tapons simplement : ! DNAME 
« DISK3B » (et Return). Une nouvelle demande de catalogue nous per- 
met de vérifier que le nom de volume a bien été changé. 


VOLUME : DISK3A : 
U TDOS .SYS 5 51 SECTORS 
644  SECTORS FREE 


RORARE"D1SK36" 


FEATr 


VOLUME : DISK3B 
U TDOS -SYTS S S1 SECTORS 
644  SECTORS FREE 


FReacty 


Pour terminer, signalons que toutes ces opérations (formattage, 
initialisation, master) seront à effectuer si vous désirez effacer une dis- 
quette ancienne. 
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2° - MONTAGE D’UN SECOND LECTEUR : 


Vous avez acquis dans un premier temps un lecteur Jasmin ; 
vous désirez maintenant en acquérir un second. Cela est possible : l’ali- 
mentation du Jasmin est capable d'alimenter deux lecteurs et l'ordinateur 
lui-même. 


La société TRAN vous livrera alors un « kit » comprenant : 

- le deuxième lecteur, 

- un cable d'alimentation +12,+5,0V, à connecter comme celui 
du premier lecteur, sur le contrôleur (des trous sont prévus), 

- un connecteur destiné au cable plat de liaison entre contrôleur 
et lecteurs. Les deux lecteurs doivent être branchés en parallèle (attention 
au sens). 


Une notice jointe au kit vous fournira tous les renseignements 
complémentaires nécessaires. Faire attention à la position des commuta- 
teurs miniatures des 2 lecteurs (pour le premier : 2 sur ON, les autres sur 
OFF ; pour le second : 3 sur ON, les autres sur ON). 


Ceci étant réalisé, rien ne se passe de spécial à la mise sous ten- 
sion. En fait, dès cet instant, Jasmin ne sait pas qu'il y a un second lec- 
teur ; il faut l'en informer en tapant : 

!MOUNT « 2. ». 


A partir de là, et de façon générale (voir éventuellement la syn- 
taxe des instructions) tout fichier présent sur une disquette située dans le 
lecteur n° 2 devra voir son nom précédé de : 2. . Ainsi, si le programme à 
charger est « TKD », il faudra taper : 

l« 2,TKD » 


L'instruction opposée à ! MOUNT « 2. » est ! DEMOUNT « 2. », 
indiquant au DOS la disparition de la deuxième unité de lecteur. 


3° - START ET UNSTART 
! Start «» 


N'avez-vous jamais regretté que lors de la mise sous tension 
votre ordinateur choisisse d'écrire en noir sur fond blanc ? Vous aimeriez 
connaître le catalogue de la disquette au moment où vous avez booté le 
DOS ? 


Vous trouvez fastidieux de devoir indiquer au système et à cha- 
que mise sous tension que vous possédez deux lecteurs ? 
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Dans ces cas et dans bien d’autres la commande ! START vous 
sera très utile. Elle permet en effet de lancer automatiquement un pro- 
gramme basic ou en code machine dès que le TDOS est booté. 


Le MODE d'emploi de cette instruction est spécial, lisez-le bien. 


1° - Recommandation : elle a son importance : la première fois 
que vous exécutez cette manœuvre, prenez soin de conserver sur une 
disquette une copie du TDOS. Si le programme qui va être lancé automati- 
quement se « plante » vous ne pourrez plus récupérer la main sur l’ordina- 
teur (même pas par un reset) et comme chaque fois que le TDOS sera 
booté le programme sera lancé... vous ne récupèrerez jamais la main. 
Dans ce cas, la copie vous permettra d'introduire le DOS dans l'ORIC et de 
supprimer l'effet de ! START«» sur la disquette inutilisable. 


2° - Tapez normalement le programme qui doit être lancé, le cas 
échéant testez-le. Le programme suivant par exemple permet de position- 
ner l'Oric encre jaune, papier bleu et de faire afficher le contenu de la dis- 
quette. 


A PROGRAMME DE LANCEMENT AUTO 


19 DOKE#1B,#CCBQ 
20 PAPER 4 

32 INK 3 

48 MOUNT"2." 

50 NEW 

60 END 
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3° - L’instruction 40 est absolument nécessaire 


DOKE +#+1B,+#CCB0 pour l’atmos 
DOKE +1B,+#CBED pour l'oric 1. 


A la fin du programme l'oric se branche à l'adresse +1B pour 
connaître ce qu'il doit faire ; #CCBO au +CBED sont les adresses de 
début de la routine qui affiche Ready et rend la main à l'utilisateur. 


L'instruction 50 est facultative ; mais elle permet de nettoyer la 
zone mémoire de programme. Ainsi, on peut commencer à programmer 
sans s'occuper du programme A. 


4° - Sauvez le programme en lui donnant un nom d’UNE seule 
lettre ; par exemple ! SAVE « A » pour un programme écrit en basic, ou 
! SAVE « W.BIN » pour un programme en langage machine. (Bien 
entendu le programme doit être sauvegardé sur la disquette et sur la face 
sur laquelle porte la commande ! START «»). 


5° - Tapez ! START « nom du programme » suivi de RETURN 
par exemple : ! START « A » = 4 représente la touche RETURN. 


6° - Et enfin tapez ! MASTER « nom du DOS » puis RETURN par 
exemple : ! MASTER « TDOS » = 
pour les deux dernières instructions, la syntaxe est la syntaxe habituelle : 
{START « (n° disque.) NOM (.TYP) » TYP = BAS ou BIN 
! MASTER « (n° disque.) NOM du DOS » 
Dorénavant le programme se déroulera à chaque mise en service du sys- 
tème (si disquette qui contient le programme précédemment défini est 
engagée). 
| UNSTART «» 


Vous ne désirez plus que le programme soit lancé automatique- 
ment. Il faut simplement utiliser la commande ! UNSTART 
! UNSTART « nom du programme qui était lancé » Return 
! MASTER « nom du DOS » Return 
par exemple : ! UNSTART « À » æ 

! MASTER « TDOS » + 

La syntaxe complète de ! UNSTART est identique à celle de ! START » 
! UNSTART « (n° disque.) NOM (.TYP) » 


4° - LES DIFFERENTS TYPES DE FICHIER 


Dans le catalogue, obtenu par !CAT«» (ou bien par 
! CAT« (numéro de disque.) », dans le cas de plusieurs lecteurs en ligne), 
figure, à côté du nom du fichier (ce terme étant pris dans son sens général) 
le type de celui-ci. Il y en a 8 possibilités. 
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.BAS : indique que le fichier en question est un programme 
BASIC, bien que celui-ci puisse comporter un chargement en langage 
machine. Dans ce cas, les instructions ! SAVE Af$, ! LOAD AS, et ! A$ sont 
opérationnelles, A$ étant le nom du programme, précédé éventuellement 
du numéro de l'unité de disquette, mais pas obligatoirement du type (ici : 
BAS) qui est facultatif dans ce cas. Autres instructions concernées : 
! SEARCH, ! RENAME , ! LOCK et ! UNLOCK'; ! MERGE, ! DEL, ! COPY. 


.SYS : lors du boostrapping d’une disquette vierge, le fait de la 
rendre « maîtresse », c'est-à-dire porteuse du TDOS la charge d'un pro- 
gramme système gérant toutes les communications avec le lecteur de dis- 
quette. Ce programme, et lui seul, est du type SYS. L'utilisateur ne peut 
créer un fichier quelconque ayant ce type. 


.DAT : tous les fichiers définis comme étant du type séquentiel ou 
à accès direct verront leurs informations stockées sous le type DATA. Cela 
se fera automatiquement, sans que l'utilisateur ait à le préciser. D'ailleurs, 
l'indicateur de ce type dans les commandes concernées n’est pas obliga- 
toire, puisqu'il est toujours sous-entendu. Instructions concernées : 
! CREATE, ! OPEN. 


.BIN (.CMD et .TXT). De manière générale, toutes les informa- 
tions sous forme binaire présentes dans la mémoire de l'unité centrale 
seront des fichiers binaires. Ainsi, un programme en langage machine 
stocké entre les adresses +400 et #4FF pourra être sauvegardé sous le 
nom choisi, à condition qu'il soit accompagné de la mention .BIN. De 
même, la mémoire caractères pourra l'être de la même manière. |l y a une 
différence entre ces deux exemples : le premier est exécutable, puisqu'il 
s’agit d'un programme, le second ne l’est pas puisqu'il s’agit de données. 
Ainsi, peut-on distinguer dans le catalogue en remplaçant respectivement 
.BIN par .CMD et .TXT. Si cela n'a aucune importance pour le DOS, cela 
permet à l'utilisateur d'avoir plus de souplesse pour le choix du nom des 
fichiers. Par contre, un fichier binaire A$ par exemple sera exécutable s'il 
est étiqueté .CMD par : !« — .CMD » alors qu'il ne le sera pas avec la men- 
tion .TXT. 
Instructions concernées : ! SAVE, !LOAD, ! SEARCH, ! RENAME, 
! LOCK et ! UNLOCK, ! COPY, ! DEL 
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.ARY : toutes les informations sous forme d’élements de matrice 
(de tableaux) traitées par les instructions ! MSAVE et ! MLOAD apparais- 
sent dans le catalogue sous le type .ARY (ARRAY en anglais). De tels 
fichiers ne sont pas manipulables. 
Instructions concernées : ! MSAVE, ! MLOAD, ! COPY, ! SEARCH, 
! RENAME , ! LOCK et ! UNLOCK, ! DEL 


.SCR : Toutes les informations relatives à des contenus d'écran 
(haute et basse résolution), traitées par les instructions ! LSCR et ! HSCR 
sont sauvegardées sur la disquette à l’aide du type .SCR (SCREEN en 
anglais). Comme les précédents, ces fichiers ne sont évidemment pas 
exécutables. 
Instructions concernées : !LSCR, !MSCR, !COPY, ! SEARCH, 
| RENAME , ! LOCK et ! UNLOCK, ! DEL 


: ; Basic Binaire System 
En résumé : 


données écran matrice 


.BIN 


fichiers 


exécutables .SYS 


.CMD 


non exécutables 
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5° - LA COPIE DE FICHIERS : 


Il peut être utile de dupliquer un fichier et cela, pour plusieurs rai- 
sons. 


Il'est sage de toujours conserver en double exemplaire, et sur 
deux disquettes différentes, un programme d’une certaine valeur. Une 
mauvaise manipulation pourrait en effet faire perdre définitivement l’enre- 
gistrement de ce programme. On conservera donc en général un « origi- 
nal » et l'on se servira en temps normal de la « copie ». D'autre part, pour 
tous ceux d’entre les lecteurs qui viennent d'acquérir un Jasmin, leur pro- 
blème va être de passer sur disquette tous leurs anciens enregistrements 
sur cassette. Malheureusement, comme nous le verrons, cela posera 
quelques problèmes. 


Enfin, il y aura nécessité de copier des fichiers lorsque des pos- 
sesseurs d'ORIC voudront échanger entre eux des logiciels. 


Pour tout cela, le TDOS offre trois possibilités qui, contrairement 
aux apparences, ne sont pas identiques, mais plutôt complémentaires. 
‘Cependant, disons tout de suite que ces trois possibilités ne concernent 
pas les fichiers définis par l'instruction ! CREATE (à accès séquentiel ou à 
accès direct) pour lesquels l'existence de pointeurs empêchent une dupli- 
cation directe. Nous proposons cependant dans le chapitre concerné un 
petit programme permettant cette opération. 


® La première de ces instructions est : 
! COPY « (numéro de disque 1.) nom A (. type 1) = (numéro de disque 2.) 


nom B (.type 2) » 

dont on pourrait résumer la fonction de transfert par : 

numéro de disque 1 numéro de disque 2 
nom A émetteur # récepteur nom B 
type 1 type 2 


toutes les combinaisons sont possibles entre ces divers paramètres. 
Cependant (.type 2) peut être absent, auquel cas, par défaut il sera identi- 
que à type 1. 


Ainsi : 

| COPY « 1.FILTRE .BAS = 2.ACTIF .BAS » 

permet de dupliquer le fichier (= programme) BASIC de nom FILTRE pré- 
sent sur une disquette située dans le lecteur n° 1 en un fichier (= pro- 
gramme) BASIC de nom ACTIF sur la disquette située dans le lecteur n°2. 
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Cette même instruction pourrait s’écrire : 

! COPY « 1.FILTRE .BAS = 2.ACTIF » 

ou même : 

| COPY « 1.FILTRE = 2.ACTIF » 

(BAS) étant en effet toujours sous entendu par défaut. 


Pour les autres cas, toutes les combinaisons de type sont possi- 
bles, quoique, par sécurité, il soit préférable que le fichier dupliqué soit du 
même type que le fichier émetteur. Rappelons au passage que 2 fichiers 
de même nom mais de types différents sont considérés comme distincts 
par le TDOS. Une particularité de cette instruction est la suivante : lors de 
sa réalisation, le fichier concerné est stocké provisoirement en mémoire 
centrale à la place qu'il occuperait au cours d’une opération ! LOAD (à ce 
titre, on peut écrire symboliquement : 


! COPY « (ndisque 1.)NOMA.type 1)= (ndisque 2.)NOMB(.type 2) » 
équivalent à : 
| LOAD « (ndisque 1.)NOMA.type 1) » 


+ 
! SAVE « (ndisque 2.)]NOMB(.type 2) » 


La différence avec la réalité étant que, pour l'instruction ! SAVE 
relative à un fichier binaire, il est nécessaire d'indiquer la zone mémoire 
concernée). 


Ceci présente un inconvénient pour les fichiers binaires stockés 
en page 4 : leur chargement détruit en effet la partie du TDOS située à cet 
endroit et bloque le système. Il est donc impossible de recopier un tel 
fichier avec cette instruction. 


® La solution, mais évidemment contraignante, est d'utiliser un 
utilitaire (attention, ce n’est pas une instruction), appelé « BKP » (en 
anglais Back-Up) et lancé par !« BKP » situé sur la disquette maître. Son 
utilisation ne pose pas de problèmes, puisqu'il guide l'utilisateur pas à pas. 
Il permet de recopier la totalité d’une disquette (c'est là la contrainte) soit 
sur une autre disquette échangée tour à tour avec la précédente dans le 
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cas d’un seul lecteur, soit sans manipulation, sur une disquette placée 
dans un second lecteur. L'opération, en effet, ne peut se faire en une seule 
fois, les informations dupliquées transitant par la mémoire vive de l'unité 
centrale. Il s’agit-là d'une copie dite : pseudo bit à bit dans la mesure où 
d'une part, les informations sont copiées indépendamment de leur valeur 
intrinsèque (« bêtement, mais c’est là un avantage indéniable »), d'autre 
part seuls les secteurs de la disquette déclarés occupés par les pointeurs 
adéquats sont copiés. 


Il s’agit-là d’ailleurs d’un type de protection possible pour une dis- 
quette : lui faire dire qu'elle est vide, alors qu'elle est pleine... 


Attention : un back-up détruit la totalité du contenu de la dis- 
quette réceptrice. Les fichiers de la disquette émettrice ne sont en effet 
pas mis à la suite de ceux de la disquette réceptrice, mais à leur place. 


® Enfin! « TKD » permet un dernier type de duplication, un peu 
particulier, puisqu'il permet de faire passer directement un fichier de cas- 
sette à disquette. Il s’agit-là encore d’un utilitaire, dont l'exploitation ne 
pose pas de problème. Comme pour ! « BKP », l'information transite par la 
mémoire de l'unité centrale et elle est copiée bit à bit. 


Si son utilisation ne pose pas de problèmes pour les fichiers 
« personnels », tels que des programmes BASIC, elle en pose de nom- 
breux à propos des logiciels du commerce. Ceux-ci en effet atteignent des 
degrés de sophistication très élevés quant à leur protection. L'une d’entre 
elle en particulier, est semble-t-il imparable : le programme est chargé en 
deux morceaux, le premier appelant le second. L'appel se faisant sur cas- 
sette, la possession des deux « morceaux » sur disquette ne peut forcé- 
ment conduire à un résultat. En ajoutant le fait que ces programmes sont 
enregistrés de plus en plus faiblement (pour éviter la copie sauvage cas- 
sette à cassette), on en arrive à des logiciels de 200 F complètement inex- 
ploitables, même sur cassette... 


Quoiqu'il en soit, l'utilisateur doit être prévenu des déboires aux- 
quels il doit s'attendre lors de ce genre de manipulations. 
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TDOS ET BASIC 


Le TDOS vous permet évidemment, comme le fait un lecteur de 
cassettes, de charger et de sauvegarder des programmes BASIC, en lan- 
gage machine en des zones mémoires. Nous allons étudier de plus près 
ces fonctions élémentaires. 


® la commande ! SAVE 


Une fois un programme créé, et stocké dans l'unité centrale, il est 
possible de le sauvegarder sur disquette. L'encombrement minimum sera 
évidemment d'un secteur sur celle-ci (en fait 2). La commande correspon- 
dante contient plusieurs paramètres. Sa syntaxe est : 


! SAVE « (numéro de disque.) NOM FICHIER (.TYPE) » 


Si vous n'utilisez qu'un lecteur de disquette, le numéro de disque 
est alors 1 et peut être omis (valeur par défaut). Le NOM FICHIER est le 
nom que vous désirez donner à votre programme, tel qu'il apparaîtra par la 
commande ! CAT «» dans le catalogue du disque. Enfin .TYPE n'est pas 
obligatoire ici, si nous supposons que le fichier à charger est un pro- 
gramme BASIC. Toutefois, .BAS pourrait faire partie de l'instruction. 


Ainsi ! SAVE « .FILTRE .BAS » peut être équivalent à ! SAVE 
« FILTRE ». Comme nous l'avons déjà dit, NOM FICHIER est un texte 
alphanumérique de 8 caractères maximum, dont le premier est alphabéti- 
que. 


Cette simple commande est toutefois infiniment supérieure à 
celle qui lui correspond pour un lecteur de cassettes (CLOAD). En effet, 
elle peut faire partie intégrante d'un programme, de telle manière qu’un 
programme en cours puisse en appeller un autre, l’« autre » étant 
n'importe où sur la disquette, et pas obligatoirement « après », comme 
cela est nécessaire sur une cassette. Donnons un exemple. 
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Réalisons les programmes suivants : 


@® 10 PRINT « je suis le deuxième programme » : B = 10 
20 ! LOAD « PROGRAM 3 » 
puis ! SAVE « PROGRAM 2 » 
et NEW 


® 10 PRINT « je suis le premier programme » : À = 5 
20 ! LOAD « PROGRAM 2 » 
puis ! SAVE « PROGRAM 1 » 
et NEW 


@ Enfin : 
10 PRINT « je suis le troisième programme » : C = 15 
20 STOP 
puis ! SAVE « PROGRAM 3 » 
et NEW 


® Faisons alors : 
| LOAD « PROGRAM 1 » 
puis RUN. 


« Je suis le premier programme » s'affiche sur l'écran. 
Un nouveau RUN conduit à : 
« Je suis le second programme» s'affiche. 


Un nouveau RUN conduit à : 
« Je suis le troisième programme >» et un BREAK. 
PRINT A,B,C, donne : 0 0 15 


Chaque programme en a donc appellé un autre. 


Faisons cependant trois remarques : 
- Les variables définies dans chaque programme ont été effacées lors de 
l'appel d'un nouveau programme. 
- Chaque nouveau programme a effacé l’ancien | 
- Il n’est donc pas possible - pour le moment - de concatener 2 program- 
mes. 


Nous avons cependant été obligés de faire un RUN après le 
chargement de chaque nouveau programme. Cela n’aurait-il pu être auto- 
matique ? 


® la commande ! « (numéro de disque) NOM DE FICHIER 
(TYPE) » 
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Il suffit alors de remplacer les lignes 20 : 
20 ! LOAD « PROGRAM X » 
par 20 ! « PROGRAM X » 
pour que tout se déroule sans intervention exterieure. 


La syntaxe est ! « (numéro de disque.) nom du programme 
(.BAS) » 


Cette commande permet donc de lancer un programme basic 
stocké sur disquette, en l'appelant par le nom sous lequel il est connu dans 
le catalogue de celle-ci. Les conséquences de ce lancement (pertes des 
variables.) sont les mêmes que précédemment ; on peut dire que 
! « PROGRAM X » est équivalent à ! LOAD « PROGRAM X » suivi d'un 
RUN 


® la commande ! SAVE «» 


C'est l'opération inverse de la précédente et nous l’avons utilisée 
dans le paragraphe précédent. La totalité des instructions BASIC présente 
en mémoire centrale est alors transférée sur disquette ; les informations 
(variables numériques ou de chaîne) sont perdues à ce niveau. Il n’est pas 
possible de ne charger qu'une partie d’un programme. Rappelons cepen- 
dant que de nombreux logiciels proposés dans le commerce possèdent 
une fonction DEL permettant d'éliminer un certain nombre de lignes dans 
un programme. 


La syntaxe de cette commande est : 
! SAVE « (numéro de disque.) noir du programme (.BAS) » 
Comme les précédentes, elle peut être instruction dans un programme. 


Les commandes : 
| SAVE « PROGRAM 1 » 
| SAVE « 1 PROGRAM 1 .BAS » 
sont correctes. 


® la fonction ! RENAME «» 


Elle permet de changer le nom d'un programme (ou plus généra- 
lement d'un fichier, quel que soit son type) déjà présent sur une disquette. 
La syntaxe est alors : 


! RENAME » (numéro de disque.) ancien nom (.BAS) = nouveau 
nom (.BAS) » 


Ainsi : ! RENAME « PROGRAM 1 = PROG 1 » 
et : ! RENAME « 1 PROGRAM 1 .BAS = PROG 1 .BAS » 
sont 2 expressions correctes dans le cas d’un utilisateur ne possédant 
qu'un seul lecteur de disquette. 
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Supposons maintenant que l’on veuille mettre au point un pro- 
gramme assez long, dont le nom, par raison de simplicité, sera toujours le 
même. Îl est alors inutile de conserver les différentes versions antérieures, 
seule la dernière présentant un intérêt. || y a alors 2 possibilités. 


® la commande ! DEL «» 
Celle-ci dont la syntaxe est : 


! DEL«(numéro de disque.) nom du programme.BAS» permet en 
effet d'effacer un programme, dans la mesure où celui-ci n'est pas pro- 
tégé. (Symbole U = UNLOCKED devant le nom du programme dans le 
catalogue de la disquette). Une fois celle-ci effectuée, le fichier en ques- 
tion a totalement disparu. Attention ! L'indicateur du type, soit : .BAS estici 
obligatoire, ceci afin de forcer l'utilisateur à réfléchir par 2 fois avant d’utili- 
ser cette commande. 


® la commande ! SAVE «» 


En utilisant dans cette commande un nom de fichier déjà utilisé, 
on écrase cet ancien fichier, pour le remplacer par le programme stocké 
en mémoire centrale. Le même nom peut ainsi supporter les différentes 
versions d’un programme, mais évidemment seule celle qui correspond à 
la dernière commande ! SAVE est présente sur la disquette. 


.… Ainsi, la commande : 
| SAVE « PROGRAM 1 » 


Sous entend toujours : 
! DEL « PROGRAM 1 .BAS » 
! SAVE « PROGRAM 1 » 


Il'existe cependant une exception à cette règle : c'est le cas où le 
fichier présent sur disquette est protégé (symbole L = locked devant le 
nom du fichier dans le catalogue). 


® ! LOCK «» permet donc précisément de verrouiller un fichier, 
c'est-à-dire d'empêcher toute écriture, effacement ou écrasement d'un 
fichier (donc d'un programme). Il est bien sûr possible de « lire » un tel 
fichier protégé. 

Il est judicieux à ce propos de verrouiller tous les fichiers essen- 
tiels, tels que le TDOS, les utilitaires tels que FORMAT, TKD.... 


® ! UNLOCK «» permet l'opération inverse. Par sécurité, il est 
nécessaire de préciser le type du fichier (soit : .BAS pour un programme 
Basic) dans la syntaxe de ces 2 dernières fonctions ; celle-ci est la forme 
classique : ! LOCK « 1 PROGRAM 1 .BAS ». 
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® ! COPY «>» permet enfin de dupliquer un fichier, c'est-à-dire 
d’en créer un second identique au premier, sans toutefois effacer celui-ci. 
Cela permet de créer un nouveau programme, accessible par un nom dif- 
férent, qui reprend les bases de l’ancien. Cette fonction s'écrit : 


! COPY « (numéro de disque.) nom de fichier à copier = nom du 
nouveau fichier » 


(.BAS) est toujours optionnel à la suite des 2 noms. 
® la commande ! CUT numéro de ligne 


Cette commande permet de supprimer la totalité des lignes d’un 
programme basic à partir de la ligne numéro de ligne. Grâce à cette com- 
mande vous pouvez par l'intermédiaire de l'instruction ! SAVE «» ne sau- 
vegarder qu'une partie de programme. 


Mais cette commande a un effet encore plus intéressant : elle ne 
détruit pas les variables d’un programme en cours d'exécution. 


Restriction : 
Toutes les variables numériques sont conservées, mais atten- 
tion : 


Les seules chaînes alphanumériques qui sont conservées sont celles 


- qui sont au-dessus de ! CUT ou 
- qui ont été entrées après à partir de INPUT ou 
- Sur lesquelles des calculs ont été effectués. 


Par exemple : 
10 A$ = « BONJOUR » 
20 INPUT « NOM » ; B$ 
30 B$ = « AU REVOIR » 
40 B$ = «» + B$ : B% = 8, 
50 C$ = « MERCI » : À = 10,3 
60 ! CUT 20 


La variable C$ est perdue, les autres sont conservées. 


Ceci vient du fait que les variables numériques sont stockées 
dans une zone qui leur est propre, tandis que pour les chaînes alphanu- 
mériques l'adresse est directement placée dans le corps du programme. 
Si la ligne du programme contenant cette adresse a disparu l'ORIC est 
incapable de retrouver la chaîne. Par contre pour un INPUT et une opéra- 
tion l'ORIC doit stocker les chaînes sur une pile au-dessous de HIMEM ce 
qui explique que dans ce cas il puisse les retrouver. 
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Remarque : pour les mêmes raisons que pour les chaînes les 
DATA sont perdus. 


Elle permet donc de libérer de la place en mémoire pour des pro- 
grammes très longs ou très volumineux. 


Dans certains cas ! CUT permet aussi de supprimer de façon 
dynamique des options dangereuses dans un programme, ou des parties 
de programme qui ne servent que lors de l'initialisation. 


Tapons le programme suivant : 


1@ PRINT "JE-SUIS LA PARTIE AVANT ICUT" 
28 PRINT 

30 PRINT'JE SUIS LA PARTIE APRES 2CUT" 
49 CUT 28 


Tapons RUN une 1" fois : 2 messages s'affichent 
RUN 
JE SUIS LA PARTIE AUANT 0CUT 


JE SUIS LA PARTIE APRES 2CUT 
RUN une 2e fois : 1 seul message s'affiche 

JE SUIS LA PARTIE AUANT 2CÙT 

LLIST 


19 PRINT "JE SUIS LA PARTIE AUANT 2CÙT* 


LIST nous montre que la ligne 10 est la seule restante. 


® ! MERGE « nom de programme » 


C'est la commande complémentaire de ! CUT, elle permet de 
concatener 2 programmes BASIC. 


Reprenons les 3 petits programmes du chapitre ! SAVE et modi- 
fions-les un peu. 
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On remplace ! LOAD par ! MERGE dans chacun des 3 program- 
mes. 


On lance le programme « PROGRAM 1 » comme à l’accou- 
tumé : 


PROGRAM] 


19 PRINT "JE SUIS LE 1ER PROGRAMME” 
15 A=10.3:C$="QUERTY" 

20 SMERGE “PROGRAN2" 
PROGRANM2 


3Q PRINT"'JE SUIS LE 2IEME PROGRAMME" 
35 BX=5 

4Q SMERGE PROGRANG" 
PROGRAM 


50 PRINT “JE SUIS LE 3IEME PROGRAMME” 
50 PRINT A,3X,C$ 
RUN 
JE SUIS LE iER PROGRAMME 
JE SUIS LE 2IEME PROGRAMME 
JE SbiS LE SGIEME PROGRAMME 
12.3 5 QWUERTY 


Le résultat montre que sans intervention de notre part les 3 pro- 
grammes se sont déroulés. Mais contrairement au cas où on appelle le 
programme par ! «>» les variables n'ont pas été perdues. 


Examinons le contenu de la mémoire programme de l'ORIC par 
LIST : nous nous apercevons que les trois programmes, sont maintenant 
présents simultanément ; on a donc bien concatené les trois programmes. 
On peut sauver le programme ainsi formé comme n'importe quel pro- 
gramme BASIC. 


Cette technique permet de faire des programmes à partir d’utili- 
taires épars et sauvegardés sur disquette. Utilisée conjointement à la 
commande ! CUT, ! MERGE permet de faire tourner des programmes qui 
sont plus imposants que la mémoire programme de l'ORIC. 


a 


La commande ! MERGE ne peut concatener que des program- 
mes en BASIC donc la mention « BAS » est facultative. 


ATTENTION : le numéro de la 1"° ligne d’un programme à mer- 
ger doit être supérieur au numéro de la dernière ligne déjà en mémoire. 
Dans le cas contraire le commande ! MERGE fonctionne mais dans votre 
programme mergé vous aurez plusieurs lignes portant le même numéro 
ce qui peut être génant en cas de GOTO !!! 


- Il existe dans le commerce des utilitaires de renumérotation 
nous ne saurions trop vous conseiller de vous en procurer un. 


APPLICATION DE ! CUT ET ! MERGE 


Beaucoup de programmeurs ont l'habitude d’une part, de numé- 
roter leurs logiciels à partir de 10, d'autre part, d'utiliser le même nom 
générique pour tous les programmes ayant un rapport entre eux. C’est ce 
que nous avons fait, par exemple, dans le chapitre sur les fichiers à accès 
séquentiel ; les programmes utilisés s’intitulant PROGN 1, PROGN 2... 


Il est alors intéressant, de pouvoir lister tous ces programmes 
automatiquement, sans intervention extérieure. 


Le principe de l'opération est simple et fait appel à des caractéris- 
tiques intéressantes du TDOS. (Voir programme LLIST). I! faut d’abord 
constituer le nom de chaque programme (par A$), lui associer le pro- 
gramme correspondant (par ! MERGE A), le lister, l’éliminer (par ! CUT 
10) et aller chercher le suivant. Le seul inconvénient est que l’utilisation de 
LLIST ne permet pas de poursuivre le programme, car cette instruction 
s'achève toujours par un READY ! Il faut donc inclure un petit programme 
aimablement mis au point par Monsieur TRAN pour cette occasion en lan- 
gage machine permettant d'éviter ce phénomène. 


Ce programme, relogeable, se compose de 2 parties, l’une pla- 
cée en # 4500, de 8 octets. Il pourra éventuellement être placé dans le 
second clavier. + 4500'est appelé juste avant l'instruction LLIST. Le 
numéro de l'instruction suivant celle-ci est placée en + 36, # 37. 


On pourrait également utiliser le principe de ce programme pour 
obtenir de façon continue le listing de la totalité des programmes d’une dis- 
quette. Il faudrait pour cela faire appel au catalogue (voir chapitre sur le 
langage machine). 
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#4000 
#4001 
#4002 
#4003 
#4004 
#4005 
#4006 
#4007 
#4008 
#4003 
#400A 
#400B 
#4QQC 
#400D 
#4QOE 
#400F 
#4010 
#ao1!r 
#4012 
#4013 
#4014 
#4Q15 
#4016 
#4017 
#4018 
#4013 
#4Q1A 
#401B 
#4Q1C 
#4Q1D 
H4Q1E 
#4Q01F 
#4020 
#4021 
#4Q22 


#A9 
#9? 
#85 
#35 
#A9 
#30 
#85 
#36 
#AS 
#35 
#85 
#37 
#AS 
#Q 

#85 
#38 
#85 
#3A 
#85 
REA 
#AS 
#BQ 
#85 
#1B 
HAS 
#HCC 
#85 
#1C 
HAS 
#34 
#85 
hES 
#4C 
#F4 
#C8 


*lci,ily ag 
A (le numéro de ligne est codé 9 5) 


** Le code ASC II (en hexadécimal) 
de 5 (numéro de ligne) est + 35 
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#4500 #HA9 *** Ceci est l'adresse 
#4501 #9 7. du programme précédent 
#4502 #85 

#4503 #1B 

#4504 #A9 

#4505 #40 

#4506 #85 

#4507 #1C 


1 N=! 
2 NS:MIDSCCTRÉCN),2, 1) :A$="PROGN'"+NS$ :0M 
ERGEAS 


3 CALL#4500 "* Le code ASC II (en hexadécimal) 
4 LLTST: 10 de 5 (numéro de ligne) est = 35 
95 2CUTI8 


6 LPRINT:LPRINT AÀ$ :LPRINT :LPRINT :LPRINT 
“LPRINT 
3 N=N+1:GOTO 2 


19 2CREATE'"SYNDIC,S=1" 

2Q PRINT:PRINT'Quel est le nombre de co 
proprietaires “:INPUT G 

30 2WRITE 1°G 

4Q FOR N = 1 TO G 

5Q INPUT'Nom du coproprietaire=";A$ 

60 INPUT'"'Date du dernier decompte=";Bs 
?8 INPUT'Reliquat a cette date=";SR 

8Q INPUT'Milliemes=";n 

3Q@ INPUT'DÙU AU =";C$ 

10@ INPUT'"'SOMME DUE=";SD 

110 INPUT'Balance=";B 

12Q JWRITE 1’N,A$,BS$,SR,M,C$, SD,B 

130, NEXTN 

14Q 2CLOSE 1. 


PROGNI 


19 SOPEN'"SYNDIC=1" 

20 A$="":B$="":C$="" 

25 SRENIND 1 

30 2TAKE 1°G 

40 FOR N=1 TO G 

50 STAKE l’N,A$,B$,SR,M,C$,SD,B 


?Q0 LPRINT'Date du dernier decompte..'";B 


80 LPRINT'Reliquat a cette date,...."3S 
R;'"Fr." 

3Q LPRINT'Milliemes possedes...,..,.. “35M 
100 LPRINT"'A la date du ..,,.,,....,., 73 
C$ 

11Q LPRINT'Les nouvelles depenses ..."; 
SD;"FR, " 

12Q LPRINT'conduisent a un SOLDE de.... 
RE "3B;"Fr." 


139 LPRINT:LPRINT :LPRINT :NEXTN 
14@ 9CLOSE 1 


PROGN2 
10 ZCREATE'"DEPENSES, S=1" 
29 PCREATE 'FACTLRES, S=2" 
30 CLOSE @ 


PROGN3: 


Application du programme précédent 


LES FICHIERS DE DONNEES 


1° - LES INSTRUCTIONS ! MSAVE et ! MLOAD 


Ces 2 instructions, en un sens complémentaires, permettent de 
stocker et de récupérer les variables d'un programme, dans la mesure où 
celles-ci font partie d’un ‘tableau (une matrice) ce qui ne présente évidem- 
ment aucune difficulté. Elles viénnent donc compléter les instructions 
l'SAVE et ! LOAD, qui elles, ne gèrent que les programmes. Leur syntaxe 
est : 


! MSAVE «(numéro de disque.) nom du fichier = nom de la 
matrice» 


Le nom de fichier est celui que portera la matrice sur la disquette, 
le nom de la matrice est celui qu’elle a dans le programme. Le DOS don- 
nera alors automatiquement le type .ARY (soit ARRAY en anglais). Ces 
matrices peuvent être de nature quelconque : tableaux de réels, d’entiers, 
ou de variables chaînes. La nature cependant doit être précisée dans le 
nom du tableau. D'autre part, lors de la récupération des informations (par 
! MLOAD), il faudra au préalable avoir défini la matrice « réceptrice » par 
DIM. 


OPERATIONS SUR LES MATRICES 


Les commandes ! MSAVE et ! MLOAD vous permettent de sau- 
vegarder les matrices, et ceci quel que soit leur type, puis de les récupérer 
en mémoire centrale. Leur syntaxe est : 


! MSAVE « (numéro de disque.) nom du fichier = nom de la 
matrice » et 


| MLOAD « (numéro de disque.) nom du fichier = nom de la 
matrice ». Le type est automatiquement affecté (.ARY). 
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Ainsi, les matrices À, B%, E$, définies dans un programme par : 
DIMA (5,5) 
DIMB% (15) 
DIM E$ (8,3,2) 
seront sauvegardées respectivement par : 
! MSAVE « MA = A » 
! MSAVE « MB% = B% » 
! MSAVE « MES = E$ » 


MA, MB%, MES sont bien sûr des noms tout à fait arbitraires. Ces 
noms peuvent éventuellement être les mêmes que celui d’un fichier quel- 
conque, comme un programme BASIC, puisque leur type est alors diffé- 
rent. [(.ARY) et (.BAS)] 


La récupération des éléments d’une matrice stockée sur dis- 
quette est quelque peu délicate. Il faut d’abord, bien sûr, que la matrice 
réceptrice (en mémoire centrale) ait été définie (par DIM) et soit de même 
type (réel, % ou $). 


Ensuite, et sauf subtilité (possible, nous le verrons) de pro- 
gramme, il est préférable d’avoir, pour les 2 matrices en question, les 
mêmes dimensions. 


Considérons le programme « MATRICE » dont le listing est 
donné. Nous définissons une matrice À, dont chaque élément a une valeur 
distincte des autres. Les lignes 75 à 145 nous permettent de disposer cette 
matrice sur l'imprimante. Après avoir sauvegardé cette matrice (sous le 
nom MA), nous effaçons toutes les variables (par CLEAR), récupérons MA 
et l’affichons de nouveau sur l'imprimante. Tout est correct. 


Définissons maintenant une matrice réceptrice C, définie par 
DIMC (8) (ce qui n’est d’ailleurs pas nécessaire pour une dimension infé- 
rieure à 10). Nous constatons que C se remplit dans l’ordre des colonnes 
de A. De même pour une matrice D [DIM D (4,4)]. Plus curieux est le cas de 
la matrice E, définie par DIM (11,11). 


En conclusion, si les matrices émettrice (sur disquette) et récep- 
trice (en mémoire centrale) n'ont pas des dimensions identiques, il est 
possible de prévoir ce qui va se passer : 
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— 


7 


ordre d'évacuation des données de la matrice émettrice 


J 


ordre de remplissage de la matrice réceptrice 


MATRICE 


10 DIM A(I@,10@) 
28 FOR I=@ TO 12 
30 FOR J=Q TO 12 
4Q ACI,JIE=N 

20 N=N+] 

69 NEXT J 


7@ NEXT I:GÜSER 75 :G070150 

25 FOR J=3 TO 10 :U=9+(5XJ)-LENCSTRS$SCJ)) 
LPRINT TABCUIN Ji :NEXT J':LPRINT :LPRINT 
80 FOR I-@ TO IB:LPRINT I; 

98 FOR J:0 TO 10 


100 
+18 
120 
: 30 
142 
145 
‘59 
162 
178 
125 


‘82 6 


: 38 
22e 
212 
228 


230 : 


249 
252 
262 
2270 
230 


_=9+(5XJj)-LENCSTR$CACI,J2)17) 
LPRINT TABCLJ ACI,J); 

NEXT J 

LPRINT':LPRINT 

NEX'I 

RETIRN 

ENSAVE NS ZA: 

CLEAK 

DIN 419,19) 

EMLOAD"MNA=A: 


LE CCS) 


CLEAR 

DIN 204,4) 

EMLOIAD'NA=T 

FOR JE TO 4:0J=39+C5XJ)-LENCSTRS(CJI1 


"LPRINT TABTi, J'iNEXT J :LPRINT:CPRINT 


230 
320 
310 
329 
330 
340 
330 
360 


FOR I:=:9 TO 4:LPRINT !; 

FIR J=9 TO 4 
LEg+(SkJ)-LENCSTRS(D(]I,J3)1) 
LPRINT TABCL) DCI,J); 

NEXT J 

LPRINT:CPRINT 

NEXT ] 

CLEAR 


370 
380 
330 


DIM EC11,11) 
EMLOAD'MAEE 
FOR J=Q TO 11:U=9+(SXJ)-LENCSTRSCJ) 


JELPRINT TABCU) JS INEXT J''LPRINT:LPRINT 


400 
410 
420 
438 
440 
450 
460 
470 


FOR I=9 TO 11:LPRINTI,; 


FOR J=Q TO 11 
L=9+(CSXxJ)-LENCSTR$SCECI,J))) 
LPRINT TABCL) ECI,J); 

NEXT J' 

LPRINT:LPRINT 

NEXT I 

END 


| 


11 12 13 14 15 16 17 18 
22 23 24 25 26 27 28 2% 
33 2% 35 36 37 38 39 4 
dé 45 46 47 48 49 SO Si 
59 69 61 62 
66 67 68 69 78 71 72 73 
77 78 79 68 61 82 83 8 
88 89 96 91 92 93 94 95 
99 100 101 192 193 104 105 106 
19 118 111 112 113 114 113 116 117 


A (1,J) : Matrice de départ 


© D NV M U »& OU NN — © 
& 
ë 
Le] 
nl 
[e] 
œ 


re J 

[:] 1 2 3 4 5 6 7 
[:] @ 1 2 4 5 7 
1 11 12 13 14 13 16 17 18 
2 22 23 24 25 26 27 28 29 
3 33 34 35 36 37 38 39 40 
4 44 43 46 47 48 49 50 S1 
5 53 36 37 58 59 60 61 62 
6 66 67 68 69 78 71 72 73 
7 77 78 79 80 81 82 83 
8 88 689 90 91 92 93 Jé 95 
9 99 108 101 102 103 104 105 106 


19 11 111 112 113 114 115 116 117 


A (1,J) : Matrice stockée sur disquette 


96 
107 
118 


107 
118 


108 
119 


106 
119 


10 
19 
21 
32 
43 
54 
65 
76 
87 
38 
109 
120 


19 
18 
21 
32 
43 
54 
63 
76 
87 
98 
189 
120 


51 


52 


& © NN 


9 1 
[ 8 12 


1 11 23 
9.47390315E-14 


_ 


2 22 4 
9.47390315E-14 
3 33 45 
9.47398315E-14 
4 44 56 
9.4739931SE-14 
LI 355 67 
9.47390315E-14 


6 66 78 
9.47390315E-14 


7 77 89 
9.47390315E-14 
8 88 100 


9.47390315E-14 


9 99 111 
9.47390315E-14 


19 110 2 
9.47390315E-14 


11 1 13 
9.4739031SE-14 


J 

1 

55 

11 66 

22 77 

33 88 

44 93 
D (1,J) 
2 3 
24 36 
35 4? 
46 58 
57 693 
68 60 
79 91 
-90 102 
191 113 
112 4 
3 15 
14 26 
25 37 


38 
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3 4 
45 100 
56 111 
67 2 
78 13 
89 2z4 

5 £ 

69 72 

71 83 

82 94 

93 195 
164 116 
115 7 

6 13 

17 29 

28 40 

39 51 

sû 62 

6i 73 

E (1,J) 


74 


85 


La] 


D'UN 8 UN = 
& 
& 


C(1) 


19 11 


126 9.47399315E-14 


3.47390315E-14 


9.47390315E-14 


9.47390315E-14 


9.47390315E-14 


9.47399315E-14 


9.47320315E-14 


9.47390315E-14 


9.47390315E-14 


9.4739031SE-14 


9.47390315E-14 


9.47390315E-14 


Voici un autre exemple d'opérations sur les matrices : 


14 FEM TESTMAT 
11 DIM GXCS,5 
12 DIM R&C3.35 
14 DIM F65,5 


15 DIM BxiS, 5) 

2 DIM AS S,55 

25 DIM CS 3,33 

36 FÜR 14705 

45 FOR JeUTO 5 

Si HSC I, Je l+. 
she 1, J 3 


cn 
ui 
mx 
M Lit 
Ke 
— = 
Le 


HEAT I 
FÜR I=f T0 33 
FOR Jef TO 5 


F3 IMNPUT'ES&" US$ T1 
F5 HET J:MEXT TI 


IMSAYE "MARS HS" 
99 IMSAVE"MEXSEX" 
164 IMSAYVE"MCS&=CS" 
114 IMLOAL'MEASLA" 
124 IMLOAD'NCS=RS" 
139 IMLOAC"MARSF" 
144 FOR I1=4 TO S 
154 FOR Je TO 5 
164 PRIHTEXE [,.J 3; 
179 HEAT JJ'HEXT I 
134 PRINT :PRINT"'RS&" 
194 FOR 1=4 TO 3 
c64 FÜR JeW TI] 3 
219 PRIHTRSG( I. 
224 HEATJ:HEAT I 
234 FRINHT'"'F" 

é48 FÜR [=4 TO 5 
254 FOR J=6 TO 5 
264 PRINTFE TL, Jo; 
274 MEXT J'HEZXT I 


à 
Gi CS Ci Pi de Et 


ATTENTION : 

Dans le cas d’une matrice de chaînes et ceci quelque soit sa 
dimension, il est nécessaire de définir tous ses éléments avant de faire un 
|! MSAVE. Par exemple, on pourrait initialiser une matrice A$(3,3) par : 

- DIM A$(3,3) 

- FOR 1=0 TO 3 
- FOR J=0 TO 3 
- LET A$(1,J)= «>» 
- NEXT J:NEXT | 


20 - SAUVEGARDES D’ECRANS 
BASSE RESOLUTION ET HAUTE RESOLUTION 
! LSCR«» et ! HSCR«» 


Ces deux commandes permettent respectivement de sauver une 
page vidéo basse résolution ou haute résolution. Ces deux instructions ont 
besoin d’un seul paramètre le nom sous lequel le fichier sera sauvé. Le 
type de ces fichiers est SCR pour SCREEN ou écran en anglais. En fait, 
les informations qui le compose ne sont pas différentes de celles d'un 
fichier binaire, mais vous êtes dispensés de donner l'adresse de début et 
de fin de l’écran vidéo que vous voulez sauver. 


Par exemple : ! SAVE«IMAGE .BIN,#A000,+B800» et 
| HSCR«IMAGE» sont 2 instructions fonctionnellement équivalentes, le 
premier fichier est du type .BIN dans le catalogue, l'autre est du type .SCR, 


. Pour rappeler une page déjà mémorisée, il suffit de procéder 
comme à l'habitude : ! LOAD « nom du fichier .SCR » seul le type est 
changé : .SCR, 

Si l'image ne doit pas être directement chargée dans l'écran où 
elle a été sauvée : ! LOAD « Nom du fichier .SCR, Adresse de départ ». 


Remarques : Avant de charger un écran HIRES il faut se placer 
dans le mode adéquat. Le passage du mode text au mode HIRES réinitia- 
lise tout l'écran haute résolution effaçant les dessins qui s'y trouveraient. 


On ne peut pas distinguer un écran texte d’un écran haute résolu- 
tion autrement que par le nom du programme. Il peut être judicieux d'appe- 
ler les écrans « LOW RESOLUTION » L... et les écrans HIGH-Resolution 
He 


Par exemple LIMAGE et HIMAGE. 
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Si vous n'avez pas suivi ce conseil et que vous ne savez plus si 
un fichier .SCR est basse ou haute résolution sachez que l'écran texte 
occupe 6 secteurs et l'écran haute résolution 33 secteurs. 


Si vous donnez le même nom à un écran texte et à un écran 
HIRES le dernier enregistrement écrasera le précédant. 


30 - AUTRES ZONES MEMOIRES 


indépendamment des cas particuliers précédents, il est évidem- 
ment possible de sauvegarder et de récupérer des zones mémoires de 
l'ORIC, celles-ci pouvant constituer soit un bloc de données binaires, soit 
un programme en langage machine. 


Les instructions ! SAVE et ! LOAD conviennent alors, avec la syn- 
taxe suivante : 
| SAVE «(numéro disque.) nom fichier .BIN,AD,AF>» pour la première et, 
| LOAD «(numéro disque.) nom fichier .BIN,BD> pour la seconde. 


adresse 
AD AF hexadécimale 


nn” 


zone mémoire à 
sauvegarder 


Pour l'instruction ! SAVE, il faut préciser les adresses de début 
(AD) et de fin (AF) de la zone à sauvegarder. Inversement, pour ! LOAD, si 
le paramètre BD est présent, les données seront chargées à partir de cette 
adresse. Sinon, les données se retrouveront à la place qu'elles occupaient 
au moment de la sauvegarde. 


Par commodité, .BIN peut être remplacé par .TEXT pour des 
données binaires, .CMD pour un programme en langage machine. 


Dans le cas d’un programme, celui-ci pourra être lancé directe- 
ment par : 
! «(numéro disque.) nom fichier.type(,BD)>. 
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LES INSTRUCTIONS 
DE TRAÎTEMENT DE FICHIERS 


Il'est maintenant classique de distinguer, dans les DOS courants 
du commerce, deux types de fichiers : d'une part les fichiers à accès 
séquentiels (S), d'autre part les fichiers à accès direct (D). 


1° - QU'EST-CE-QU'UN FICHIER ? 


Comme le nom l'indique, cela peut être considéré comme un 
ensemble de fiches, comportant chacune un certain nombre d'indications. 
Prenons l'exemple d'un grossiste en quincaillerie désirant gérer son stock 
sur ordinateur. Il aura bien évidemment un fichier « visserie ». A l'heure 
actuelle, il s'agit d'un ensemble de fiches en carton, comportant chacune 
le type de vis concerné, le diamètre, la longueur, et l'état du stock. Veut-il 
connaître l’état global de celui-ci ? Il lui faut alors consulter chaque fiche, 
et tuer toutes celles qui font apparaître par exemple, une quantité infé- 
rieure à 100. Un client a-t-il besoin de connaître la disponibilité en vis XXY, 
diamètre 3, longueur 10 ? La fiche concernée le renseignera aussitôt. 


Cet exemple donné, il faut bien voir que tout un chacun est 
concerné par les « fichiers », même si le besoin n'en n'est pas toujours 
très apparent. Et pourtant ! Le météorologue amateur ? Mais si : la fiche 
type comprendra la date, la température moyenne du jour, la direction du 
vent, la pression barométrique, l'hygrométrie…. L'enseignant ? Classique : 
la fiche : nom de l'élève, date de naissance, notes de devoir. L'électroni- 
cien ? : trouver rapidement un renseignement sur un composant, d'où la 
fiche « transistor à effet de champ », qui comportera les indicateurs du 
genre : telle revue, tel numéro, telle page. Le comptable amateur ? : enre- 
gistrer à chaque occasion la date, la nature et le montant des achats effec- 
tués. 
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On pourrait donner ainsi une foule d'exemples. Nous en étudie- 
rons quelques uns par la suite dans cet ouvrage. Pour le moment, aban- 
donnons le terme de fiches, pour employer celui d'enregistrements. Un 
fichier sera donc une série d'enregistrements chacun d'eux pouvant com- 
porter plusieurs paramètres, appelés rubriques, ceux-ci étant de façon 
générale des variables BASIC tels que des nombres ou des chaînes de 
caractères. 


- QUEL TYPE DE FICHIER ? 
® critères subjectifs de choix. 


Le grossiste en quincaillerie, dont nous parlions tout à l’heure a 
besoin en général de pouvoir consulter chaque fiche en particulier, tout 
comme l'enseignant, pour des raisons évidentes. Tous deux ont doncinté- 
rêt à créer un fichier à accès direct, qui comme le nom l'indique, permet 
une saisie individuelle de chaque enregistrement. En effet, comme nous le 
verrons par la suite, chacun d’entre eux porte un « numéro », qui permet 
donc d'y accéder instantanément. Chaque enregistrement a donc une 
existence physique réelle sur la disquette et pourrait donc être observé 
sans ambiguité sur celle-ci avec une très bonne loupe ! La comparaison 
faite précédemment avec les « fiches » en carton du quincailler est ici 
extrêmement justifiée. Mais attention : un tel fichier n’a d'intérêt que si tou- 
tes les fiches sont sur le même modèle et comportent toutes les mêmes 
indications, en même nombre. 


Inversement, le comptable sera plus intéressé d'obtenir à partir 
de sori fichier des balances instantanées (position du compte en banque), 
des soldes mensuels, annuels. La nature de fiche est ici moins perti- 
nente : il lui suffit de mettre bout à bout, comme il le ferait sur un rouleau de 
papier : date, nature, montant de chaque opération, l'ensemble de ces 3 
données constituant alors un enregistrement, bien que chaque enregistre- 
ment puisse aussi comporter plusieurs achats en virements positifs. 
L'accès direct à un achat particulier n’est ici plus permis (il faut prendre le 
rouleau de papier « depuis le début »), mais quelle importance ? Seul 
importe, en effet, le solde instantané, qui nécessite la consultation de la 
totalité du fichier. Il sera donc judicieux de créer dans ce cas un fichier à 
accès séquentiel, dans lequel tous les enregistrements sont mis bout à 
bout. 


® critères objectifs de choix. 


Où se trouve l'intérêt de définir deux types différents de fichier ? Il 
semblerait, d'après les exemples précédents, que la distinction soit pure- 
ment théorique. En pratique, il n’en est rien. Peut-on réaliser la tenue d’un 
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compte en banque à l’aide d’un fichier à accès direct ? Naturellement, et 
cela permettrait — mais nous l’avons dit l'intérêt n’est pas évident — de 
connaître les dépenses effectuées tel jour. Mais cela nécessiterait, à la 
création du fichier : 

- de prévoir un enregistrement par jour, 

- de prévoir quel nombre de dépenses maximum pourrait être effectué en 
une journée, ce qui est à priori délicat : elles sont plus nombreuses un jour 
de soldes que le 20 du mois. Du point de vue du système d'exploitation, 
ces 2 types de fichiers sont définis de la façon suivante : 


® un fichier à accès séquentiel est constitué d'enregistrements 
distincts, de longueur maximum. 256 octets, eux-mêmes comprenant des 
rubriques c'est-à-dire en fait des quantités numériques ou alphanuméri- 
ques. Du point de vue du logiciel, les rubriques sont séparées par une vir- 
gule, les enregistrements par un retour à la ligne : 


e ss 
WRITE B, C$, E$, D% 


LIL eo . CN. / À le programme 
DR PORTE ol LT "À. RS 
17 à 17 LENS) LENS 8 ! | 
| La | octets ! octets octets octets , ne sur la disquette 
/ 


Sami ssmslte se ue AN Ms. 


ENT 
longueur de 5 rubriques 1 enregistrement 


l'enregistrement 


pour les chaînes : 1 caractère = 1 octet 
(soit le code ASCII du caractère) 


Les enregistrements n'ayant pas tous la même longueur, il n'est 
pas facile de se positionner avec certitude sur une rubrique donnée. Nous 
verrons par la suite que cela est possible dans une certaine mesure (ins- 
tructions ! WHERE, ! REWIND et ! JUMP). 


@ un fichier à accès direct est constitué d’une suite d’enregistre- 
ments, comprenant un certain nombre de rubriques de longueur fixe, eux- 
mêmes en quantité parfaitement définie à l'avance. 


On comprend donc qu'il peut — éventuellement — y avoir un « 
gachis » effroyable de place si l’on utilise à mauvais escient un fichier à 
accès direct, pour lequel, en effet, toutes les places non occupées sont de 
toutes façons réservées sur la disquette. En échange, cette perte de 
mémoire est compensée par un gain de temps lors de la recherche d'un 
enregistrement, puisque la place de chacun d’entre eux est parfaitement 
connu par le logiciel. 
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MANIPULATION SUR LES FICHIERS 
A ACCES SEQUENTIEL 


1° - INSTRUCTIONS DE TRAITEMENT DYNAMIQUE 
DES FICHIERS A ACCES SEQUENTIEL 


Il faut d’abord créer le fichier. L’instruction est la suivante : 


® ! CREATE «(numéro de disque.) nom du fichier, S = NLU » 
NLU est le numéro logique de fichier dont nous avons parlé précédem- 
ment. (1 « NLU « 255). Pour le DOS, NLU résume l'ensemble des informa- 
tions : numéro du disque + nom du fichier + type séquentiel. Cette instruc- 
tion ouvre également le fichier et permet donc d'y accéder, soit en lecture, 
soit en écriture. Les informations ont automatiquement le type DATA sur la 
disquette. 


@ ! OPEN « nom du fichier = NLU » permet d'ouvrir un fichier 
déjà créé. Si cela n’a pas été fait, le message d'erreur « FILE NOT 
FOUND » vous l'indiquera. 

@ ! WRITE NLU’ A,B,C$,E% ,D 

permet d'écrire à l'enregistrement courant les valeurs des réels 
AB, de la chaîne C$, de l’entier E% et du réel D dans cet ordre. 


Comme nous l'avons vu plus haut, un tel enregistrement, pris 
comme exemple, a une longueur de : 
1+(17) + (17) + (longueur de C$ + 2) + (8) + (17) + 1 octets. 
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Ilest possible de réécrire sur une rubrique déjà existante. Cepen- 
dant, il est impératif de ne surcharger une rubrique que par une variable 
ayant le même type que celle qui était inscrite précédemment. Il faut savoir 
que, dans ce cas, et contrairement à ce qui se passe dans beaucoup de 
DOS, une variable chaîne voit sa longueur automatiquement alignée sur 
celle qui était la première inscrite dans cette même rubrique. Une telle opé- 
ration ne « bouscule » donc pas le fichier. 


la première 
écritures successives MAISON ARBRE TOITURE 
sur la disquette MAISON ARBRE x TOITUR 
octets 6octets 6octets 
espace tronqué à droite 


@ ! TAKE NLU'U,V,Z$S,K%,X 

permet de saisir (et dans cet ordre) la suite des rubriques indi- 
quées. ll faut bien sûr que le type demandé soit à chaque fois identique à 
celui de la variable contenue dans la rubrique. D'autre part, un pointeur 
(dont nous reparlerons à propos de l'instruction ! WHERE) se positionne 
après chaque lecture sur la rubrique suivante. Ainsi, lire Z$ positionne ce 
pointeur sur K% et empêche donc en particulier de réécrire Z$. 


Enfin, et c'est très important, on ne peut utiliser dans l'instruction 
! TAKE que des noms de variable chaîne qui ont été préalablement défi- 
nis. Ainsi, après une mise sous tension 
| OPEN « MAISON = 1 » 
I TAKE 1’A$ (si cela est possible) 
conduit au message d'erreur : 


MISSING VARIABLE 

alors que ! OPEN « MAISON = 1 » 
A$ = «» 

[TAKE 1'A$ 


est correct 
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® ! CLOSE 1 ou ! CLOSE 0 

permet de fermer un fichier de numéro logique 1 ou bien 
(seconde expression) de fermer la totalité des fichiers en cours (sachant 
que l’on ne peut en ouvrir que 16 au maximum). I! n’est alors plus possible 
de lire ou d'écrire dans un fichier fermé. 


® REWIND NLU 

permet de se positionner au tout début d’un fichier, de numéro 
logique NLU, à supposer que celui-ci soit ouvert. En effet, lors de la ferme- 
ture d’un fichier, le pointeur se trouve à la rubrique suivant immédiatement 
la dernière à avoir été lue ou écrite. Cette instruction permet donc, par 
exemple, de relire un fichier, ou bien de le surcharger. 


ATTENTION : Dans une commande ! TAKE ou ! WRITE,, il est 
essentiel de ne pas faire suivre un nom de variable par un espace. En 
effet, ces variables ne pouvant être des variables de tableaux [A$,C%,D 
autorisés mais A$ (4), C (8) interdits], une telle syntaxe serait considérée 

‘par le TDOS comme anormale ; le message d'erreur correspondant 
serait alors affiché. Ce genre d'erreur étant difficile à appréhender, un 
espace étant invisible sur l'écran, on pensera donc à ce problème chaque 
fois qu’un ! TAKE 2’A$ conduit à : SYNTAX ERROR. Le mieux est alors de 
retaper la commande. 


2° - EXEMPLE : 


Nous voulons constituer un fichier des fleuves du monde, par 
ordre décroissant de longueur. Chaque enregistrement comporte 3 rubri- 
ques : le nom du fleuve (une chaîne), sa longueur (un entier), son bassin 
(un réel). Faisons un petit programme pour organiser la saisie des don- 
nées. Pour le moment, notre fichier ne comprendra que 5 enregistre- 
ments. 


FLEDVES1 


1@ SCREATE"FLEUVUES, S=2" 


28 FOR N = 1 10 5 

30 INPLUT'Nom du fleuve'";A$ 
4Q INPUT'"'Longueur.,.,.,. '"3;lXx 
20 INPUT Bass ins 2% ec 38 
68 2WRITE2’A$,LXx,B 

78 NEXT N 


8a 2CLOSE2 
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Par un RUN, le programme est lancé. Les différentes données 
sont fournies. Une fois rempli, le fichier est fermé. 


Il nous faut maintenant examiner si tout est correct. Nous réali- 
sons un programme « FLEUVES 2 » qui nous permettra d'examiner le 
contenu du fichier. Ces 2 programmes seront conservés sur disquette (par 
! SAVE « FLEUVES 1 » et ! SAVE « FLEUVES 2 »). 


FLEUVES2 


1 REM “FLEUVES2"* 

1@ 2OPEN'"FLEUVES=3" 

28 LPRINTTABCS)"FLEL JE" TABCZS)"LONGIIE LR 
‘TABC4S)"BASSIN" 

3@ LPRINT:LPRINT 

4Q SREWIND3 

59 FOR N=1i T0 5 

58 C$="" 

28 LTAKE3’C$,SXx,J 

88 LPRINTTABCSIC$STAB(25)S7XTAB (45 )) 
90 NEXT N 

100 ICLOSEG 


Ce programme ouvre le fichier, replace le pointeur à son origine 
(ligne 40) et récupère les informations dans l’ordre. Le résultat est le sui- 
vant : 


FLEUVE LONGUEUR BASSIN 


NIL 6671 2008000 
MISSISSIPPI 6418. 3320000 
AMAZONE 6280 6120000 
YANG-TSE-KIANG 5552 1828000 
OB-IRTYCH 5328 3522000 


Nous nous apercevons alors que nous avons oublié de placer le 
6e fleuve de par sa longueur dans le monde, qui, comme chacun le sait, est 
le Rio de la Plata. Reprenons alors le programme FLEUVES 1, dont nous 
supprimons les lignes 20 (FOR N = 1 TO 5) et 70 (NEXT N). Un RUN le 
lance, mais il s'arrête aussitôt sur un message d'erreur : 


EXISTING FILE ! 
BREAK IN 10 
Ready 


Que s'est-il passé ? En ligne 10, nous constatons qu'il y a l’ins- 
truction ! CREATE. Or, le fichier « FLEUVES » a déjà été créé, et ne peut 
donc l'être de nouveau. Il faut se contenter maintenant de l'ouvrir. 
(! OPEN). Pour éviter tout problème, nous fermons le fichier (par ! CLOSE 
0) et après avoir modifié la ligne 10, nous obtenons le programme suivant : 


1@ LOPEN'FLEUVES-=2" 
30 INPUT''Nom du fleuve'";A$ 


4Q INPLT'"'Longueur...., F5LX 
5Q@ INPUT'"'Bassin,..,..., "3B 
6Q 2WURITE2’'A$,L+x,B 

8Q 9CLOSE2 


Un examen du fichier par le programme « FLEUVES 2 » dans 
lequel la ligne 50 a été bien évidemment remplacé par : 
FOR N = 1TO6 
conduit au résultat suivant : 


FLEUUVE LONGUEUR BASSIN 


NIL 6671 20008000 
MISSISSIPPI 6418 33280800 
AMAZONE 6280 6120000 
YANG-TSE-KIANG 3992 1800000 
OB-IRTYCH 5300 3508800 


RIO DE LA PLATA 4700 3120000 


La dernière information a bien été inscrite dans le fichier. Remar- 
quons cependant que le dernier enregistrement a été inscrit à la suite des 
autres ; le fichier avait en effet été fermé après la lecture du cinquième 
enregistrement. 


Il est bien certain que les résulats ainsi obtenus par programme 
l’auraient été tout aussi bien en direct, instruction par instruction, ce que 
nous allons faire maintenant, en découvrant 3 nouvelles instructions. 


Un fichier ouvert est connu pour le DOS par son numéro logique 
NLU. Il est maintenant possible de se positionner n'importe où dans un 
fichier grâce aux instructions : ! REWIND NLU (déjà utilisé), ! APND NLU 
et! JUMP NLU, A. 


® ! REWIND NLU permet de se placer en début de fichier, sur le 
premier enregistrement. Il peut alors y avoir lecture (par ! TAKE) ou écri- 
ture (avec écrasement) par ! WRITE. 


Exécutons la suite des instructions suivantes : 
! OPEN « FLEUVES = 1 » [RETURN] 
! REWIND 1 [RETURN] 
A$=«» [RETURN] 
! TAKE 1’A$ [RETURN] 
PRINT A$ [RETURN] 


ORIC répond : NIL 
puis : 
! TAKE 1'C% [RETURN] 
PRINT C% [RETURN] 
conduit à : 6671 
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On peut ainsi examiner le fichier rubrique par rubrique. Cepen- 
dant, si la longueur est importante, on peut facilement se perdre. Aussi 
existe-t-il une instruction très performante permettant de connaître à cha- 
que instant d’une part, la position courante de pointeur de rubrique, et 
d'autre part le nombre total de rubriques d'un fichier. Tapons maintenant : 
! WHERE 1 [RETURN] 

ORIC répond : 
Ready 


Apparemment, il ne s’est rien passé. 
Cependant, les instructions : 
PRINT PEEXK (# 48 D) : PRINT PEEXK (# 48 F) 
conduisent à : 
3 
19 
Ready 


Le premier nombre indique la position du pointeur de rubrique. 
En effet, elle est bien de 3 puisque 2 rubriques ont été lues (NIL et 6671) et 
que la prochaine est la troisième. 


Le second nombre indique le nombre total de rubriques du fichier 
+ 1. Nous avons dans le fichier 6 fleuves et 3 renseignements pour chacun 
d’entre eux. On a bien : PEEK (+ 48 F) = (3 x 6) + 1. 


En résumé, à un moment quelconque de l'examen d’un fichier, et 


après un ! WHERE NLU. 
fichier 


/ rubriques . 


/ à j 
cette rubrique | 
H I 


vient d’être lue 


ou écrite + 48F 
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! JUMP NLU, N-2 
pour sauter sur une rubrique qui vient d’être lue ou écrite : 


X | 
| 
après ! WRITE 


ou ! TAKE | WRITE ou / 
| TAKE 


le pointeur + 48 D est ici 
soit N sa valeur. 


après ! REWIND | | 


pointeur + 48 D 


ès ! JUMP NLU, N- | | EX 
après ! JU LU, N-2 id me 


® L'instruction ! JUMP NLU, A permet maintenant de se posi- 


tionner ailleurs dans le fichier, À étant le nombre de rubriques à « sauter ». 
Faisons | 


A = 4 [Return] 

! JUMP 1,A [Return] 
{TAKE 1'A$ [Return] 
PRINT A$ [Return] 

ORIC répond maintenant : 
AMAZONE 
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En effet 


numéro 
de rubrique 
3 4 5 6 7 
2000000 MISSISSIPPI 6418 3300000 AMAZONE 
le pointeur JUMP 1,4 
est ici 


le pointeur 
est maintenant là. 


Cette instruction positionne le pointeur à (PEEK +# 48D) + A. 
Remarquons quand même que le numéro de rubrique n'existe nulle part 
(l'inverse est la propriété des fichiers à accès direct). A priori, seules peu- 
vent être définies la position instantanée du pointeur de rubrique et l’ampli- 
tude d’un saut. Rien n’empêcherait cependant l'utilisateur de numéroter 
ses enregistrements. Nous le verrons par la suite à titre d'exercice. 

! APND NLU 

Dernière possibilité de positionnement. Cette instruction permet 
en effet de se placer en fin de fichier, de façon à permetre de rajouter des 
rubriques. Tapons donc : 

! APNDI1 [Return] 
un Ready nous informe que l'opération s’est effectuée. Nous pouvons 
maintenant réaliser la suite des instructions suivantes : 


SAPND 1 
A$="MEKONG" 
Bx=4500 

C=812000 

SWRITE 1’A$,B%7,C 


un ! WHERE 1 nous apprend (#+ 48 D) que le pointeur de rubrique est situé 
en fin de fichier ; la même quantité apparaît en # 48 F, c'est-à-dire 22. Si 
nous tentons : 

{TAKE 1'A$ 

le message END OF FILE nous apprend (mais nous le savions) que nous 
sommes bien en fin de fichier et qu'il n’y a plus rien derrière. 


Il'est judicieux à ce propos de toujours effectuer un ! APND NLU 
avant un ! CLOSE NLU de façon à éviter un écrasement involontaire du 
fichier. 


Fermons maintenant ce fichier par ! CLOSE 1 (ou bien ! CLOSE 
0). 


3° - MANIPULATION SUR LES FICHIERS 
A ACCES SEQUENTIEL 


Nous allons voir maintenant quelques exemples simples d’utili- 
sations des instructions vues précédemment. Nous conserverons le 
fichier défini dans le chapitre précédent (FLEUVES) pour illustrer ces 
manipulations. Remarquons deux phénomènes essentiels : 


® ilest possible de surcharger une rubrique, sachant que le nou- 
veau contenu sera aligné sur la longueur de l’ancien. Le fichier n'est donc 
pas « bousculé » par une telle opération. 


® une rubrique définie comme numérique (réelle ou entière) est 
en fait occupée par une chaîne, image de ce qui a été tapé au clavier. 
Ainsi, une rubrique, écrite par ! WRITE NLU'N avec N = 10000 (par exem- 
ple) pourra être lue comme une chaîne. 
! TAKE NLU'A$ 
PRINT A$ 
Conduira à A$ = « 10000 » 


Cette remarque importante nous permettra d'examiner un 
fichier, sans savoir à priori ce que contiennent ses rubriques. 


Examen du fichier 


a) le fichier est connu. 

C'est le cas de « fleuves », dans lequel nous savons qu'il y a 7 
enregistrements, composés chacun de 3 rubriques : la première de type 
chaîne, la seconde de type numérique entier, la troisième de type numéri- 
que réel. 
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Réalisons le programme suivant : 


FLEUVES3 


1 REM "FLEUVES2" 
1@ 2OPEN'"FLEUUVUES=3" 


2@ LPRINTTABCS)"FLEUUVUE"TABC25S)"LONGIEUR 


*TABC45) "BASSIN" 
30 LPRINT:LPRINT 
48 9REWIND3 

58 FOR N=1 TO ? 
69 C+="" 

7@ ITAKE3’CS$,S4,J 


88 LPRINTTABCS)JC$STAB(25)SXTAB(45)J 


9Q NEXT N 
180 2CLOSEG 


Il conduit à l'impression suivante : 


FLEUVE LONGUEUR BASSIN 

NIL: 6671 2008800 
MISSISSIPPI 6418 3320000 
AMAZONE 6280 6122000 
YANG-TSE-KIANG 53932 1800000 
OB-IRTYCH 5380 3500000 
RIO DE LA PLATA 4700 31880000 
MEKONG 4500 812800 


Ce qui est tout à fait normal 


b) le fichier est inconnu. 

La démarche restera évidemment la même. Mais il nous faudra 
connaître au départ le nombre de rubriques ; d'autre part, nous ne pour- 
rons pas distinguer les enregistrements. 


Supposons que ce soit le cas du fichier « fleuves ». Le pro- 
gramme convenable est alors le suivant : 


FLEUVES4 


1 REM "fieuves4" 


1@ 
20 
30 
4@ 
50 
60 
20 
80 
30 


SOPEN"FLEUUES=2" 

DREWIND2 

QWHERE2 

A=PEEKCH48F )-] 

LPRINT'IL y a “;A;"rubriques," 
A$="" 

FORN=I TO À 

2TAKE2’A$ 

LPRINTAS 


120 NEXTN 
119 2CLOSEO 


un RUN conduit à : 


TL 


NIL 


y à 21 rubriques. 


6671 

2008800 
MISSISSIPPI 

6418 

3300000 
AMAZONE 

6280 

6120800 
YANG-TSE-KIANG 
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33932 
1800800 
OB-IRTYCH 

5300 

35088000 
RIO DE LA PLATA 
4700 

3100000 

MEKONG 

4500 

812000 


Remarquons cependant le décalage (de 1 signe vers la gauche) 
des grandeurs numériques. L'espace qui apparaît est classique sur 
ORIC-ATMOS ; il masque le signe + qui a été sous entendu (tous ces 
nombres sont positifs). 


Tentons la suite d'instructions suivantes : 
! OPEN « FLEUVES = 1 » 
! REWIND 1 
I TAKE 1'C$ 
I TAKE 1’C$ 
PRINT C$ : PRINT VAL (C$) 
6671 s'inscrit alors 2 fois sur l'écran. Il est donc ainsi possible de 
récupérer (par VAL) une variable numérique, dans la mesure où l'on sait 
que c’en est une. 


Terminons par : 
! CLOSE 0 


4° - RECOPIE DU FICHIER 


Nous avons déjà signalé que l'instruction ! COPY ne permet pas 
de dupliquer un fichier à accès séquentiel ou à accès direct. En effet, à ces 
types de fichier (type DATA) sont associés des pointeurs qui ne peuvent 
être transférés simultanément avec les fichiers eux-mêmes. Nous verrons 
que de toutes façons, ce n’est pas un problème. 
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Réalisons le programme suivant : (PROGN 6) 


PROGNE 


1 REM "PROGNG” 

19 REM RECOPIE DE FICHIER 

28 INPLT'fichier de depart";A$ 

3Q INPLT'"'fichier d’arrivee";B$ 

48 A$=A$S+"-=-100" 

5 SOPENAS 

593 REWINDIaR 

60 B$=RB$+',S=10i: 

7@ SCREN'TESS 

8e C$=" 

3C SWHERE Ce 

95 PFRINT'Nombre total de ribriqies";PÆE 
KCH4BF J-1 :2RINT:PRINT:PRINT 

96 PRINT'Enregistrement en cours....... 


190 FOR N=i :0 CPEEKCH48SF 5-1) 

119 SIAKE 107 'CS 

129 FRIN :ABC3GIN 

1235 IWRITEIDi'CS 

130 NEXTN 

4 LC:O0SEU 

20 PRINT:PRINT'PRINT'FIN...,,,,,,,,44, 
162 STOP 


Ce programme appelle plusieurs remarques. 


® d’abord l'extrême souplesse des instructions du type ! OPEN 
ou ! CREATE. En effet, la quantité qui les suit peut être définie comme une 
chaîne A$, ou B$ composées du nom fourni par l'utilisateur et de l'’indica- 
tion du numéro logique de fichier NLU (pris ici égal à 100) pour ! OPEN et 
de l'indication du type de fichier (S, pour ! CREATE). 
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® Ensuite, et comme nous l’avons remarqué précédemment, 
nous transférons toutes les rubriques une par une, sous forme de chaîne, 
indépendamment de leur nature. 


Nous avons donc créé un fichier (qui pourrait s'appeler RIVIE- 
RES), identique au fichier « FLEUVES ». 


Il serait possible également de créer un fichier « FLEUVES » de 
même nom, mais sur un lecteur de disquettes autre. Ainsi, le programme 
suivant permet de générer le paramètre A$ nécessaire à l'instruction 
! OPEN, à partir des indications du nom du fichier (fleuves) et du numéro 
de lecteur (1) fournis par l’utilisateur, ainsi que celui nécessaire à l'instruc- 
tion ! CREATE, soit B$, à partir du nom souhaité (fleuves) et du numéro de 
lecteur (2). L'impression de A$ et de B$ confirme tout ceci : 


A$® 1.FLEUUVES=100 
B$» 2.FLEUVES2,S=101 

Un examen (par CAT « 2. ») confirme que ce second fichier a 
bien été créé. 

1 REM "PROGNG6" 

10 REM RECOPIE DE FICHIER 

20 INPUT'fichier de depart'";A$ 

25 INPUT'"numero de lecteur emetteur";D$ 

38 INPUT'fichier d’arrivee";Bs$ 

35 INPUT'numero de lecteur recepteur";E 


4Q A$=D$+"."+A$+"-100" 

50 LOPENAS 

55 2REWINDIG0 

60 B$=E$+"."+B$+",S=101" 

78 ICREATEBS 

80 C$="" 

38 2WHERE 100 

95 PRINT'Nombre total de rubriques" ;PEE 
KCH4SF)-1:PRINT :PRINT :PRINT 

96 PRINT'Enregistrement en cours....,.. 
128 FOR N=1 TO CPEEKC#48F)-1) 

119 2TAKE180’C$ 
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128 PRINTTABC38)DN 

125 2WRITE1@1’C$ 

13@ NEXTN 

14Q 2CLOSEG@ 

150 PRINTIPRINTIPRINTUE IN sen ardt 


160 STOP 


5° - EXTENSION D'UN FICHIER 


Il est souhaitable de pouvoir ajouter un enregistrement à un 
fichier qui a déjà été ouvert. Nous avons déjà vu le cas d’un enregistre- 
ment supplémentaire placé en bout de fichier : l'instruction ! APND NLU 
est bien utile en ce cas. Voyons maintenant comment réaliser cette opéra- 
tion au milieu d’un fichier. Il faut bien sûr savoir à quel endroit doit se placer 
ce nouvel enregistrement. Pour cela, nous allons ouvrir un fichier tampon, 
appelé « fleuves 2 » dans lequel nous allons recopier tout le début du 
fichier « fleuves » ; nous rajouterons ensuite la fiche supplémentaire, puis 
nous complèterons « fleuves 2 » avec la fin de « fleuves ». « fleuves » 
sera alors détruit, et « fleuves 2 » transformé en « fleuves ». 


FLEUUESS 


19 SCREATE"FILEUVES2,S=1" 

2@ SOPEN'FLEUVES=2" 

25 LREWINI2 

30 INPUT'Nom du fieuve à rajouter" ;nA$ 


4Q INPLT'"'Sa longueur" ;Sx 

50 INPUT" Son bassin'"';kR 

60 PRINT:INPUT'"Apres quel fieuve vouiez 
vous le mettre'";B$ 

78 PRINT 

80 2WHERE?2 

30 D=PEEKC(H48F )-1 

100 E$="" 

119 REPEAT 

130 2TAKE2’E$,D%x,N 
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140 
150 
160 
170 
175 
1802 
190 
195 
2808 
21@ 
220 
230 
240 
250 


2URITEI’E$,Dx,N 
PRINTTABC10)ES$TAB(28)D:TABC382)IN 
UNTILES=B$ 

QURITEl’A$,SX,R 
PRINT:PRINTAS,SX,R 

QUHERE2 

F=PEEKC#48D) 

Dé=ut 

FORJ=FTOD 

2TAKE2°D$ 

QURITE1'D$ 

PRINTDS$ 

NEXTJ 

STOF 


Le programme « PROGN7 » nous permet à ce stade d'examiner 
« FLEUVES 2 ». (Nous avons décidé de rajouter le fleuve « AMOUR » et 
ses propriétés dans la liste, immédiatement après l'AMAZONE). 


PROGN?7 


18 
20. 
30 
4Q 
50 
6Q 
78 
39 
S12 


120 
11Q 
128 


REM EXAMEN D'UN FICHIER 
INPUT®Nom du fichier....,, "354$ 
A$="2,"+A$+"-100" 

LOPENAS 

IREWINDi9a 

DWHERE 190 
FOR N=1 TO CPEEKCH48F)-1) 
STAKElOD'A$ 
PRINTAS 

NEXTN 

PCLOSE180 

STOP 


(Remarquez, ligne 30, qu'il est fait appel au second lecteur ; A$ 
vaut ainsi : « 2.FLEUVES 2 = 100 » ; pour un seul lecteur, il aurait fallu : 
A$ = « FLEUVES 2 = 100 » 
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NIL 

6671 
2000800 
MISSISSIPPI 
6418 
3300000 
AMA2ONE 
6280 
6120000 
AMOUR 

4486 
2050000. 
YANG-TSE-KIANG 
3992 
18200000: 
OB-IRTYCH 
5300 
3500000 
RIO DE LA PLATA 
4700 
3108000 
MEKONG 

4500 
812000 


Le fleuve AMOUR a bien été rajouté, conformément à nos désirs. 
Nous pouvons maintenant éliminer le fichier « FLEUVES » pour le rempla- 
cer par « FLEUVES 2 ». 

Pour cela, faisons d’abord : 
! DEL « FLEUVES.DAT » 


puis 
! RENAME « FLEUVES 2.DAT = FLEUVES.DAT » 


(Ne pas oublier le : 2. après les guillemets de chaque instruction 
si vous faites appel au 2e lecteur). L'opération est maintenant terminée. 
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6° - SUPPRESSION D’UNE FICHE 


Nous allons maintenant faire l'inverse de ce qui a été fait précé- 
demment, c'est-à-dire supprimer un enregistrement. Il nous faudra là éga- 
lement connaître au départ la valeur de l’une quelconque des rubriques de 
celui-ci. Une première méthode consisterait à utiliser le même procédé 
que pour l’ajout d’une fiche, c’est-à-dire connaissant la précédente, sup- 
primer celle qui la suit. 

Pour varier les plaisirs, nous allons donc procéder autrement. 
Nous proposons donc de lire les fiches en séquence, de les recopier dans 
un fichier tampon si elles sont à garder, sauf celle qui est à éliminer. Il faut 
bien sûr se rappeler que chaque enregistrement contient 3 rubriques. 
(Nous éliminons l'enregistrement rajouté au paragraphe précédent, c'est- 
à-dire celui correspondant à AMOUR). 


Un dernier examen du fichier (par « PROGN7 ») nous permet de 
constater que cette fiche a bien été supprimée. 


19 REM Suppression d’une fiche 

15 INPUT'Quelle fiche vouiez vous suppr 
imer'";D$ 

28 2OPEN'"'FLEUVES=S" 

30 LCREATE"FLEUUVES2,S=6" 

4Q 2RENINDS 

5Q LWHERES 

6Q N=CPEEKCH48F)-1)/3 

65 A$="" 

78 FORK=1TON 

80 2TAKES’A$,GXx,)J 

9@ IFA$=D$STHEN GOTO11@ 

100 2WRITEG’'A$,GX,)J 

119 NEXTK: 

12@ 2CLOSEQ 

13@ 9DEL'"FLEUUES.DAT" 

140 DRENAME"FLEUUVUES2,.DAT=FLEUVES" 
152 2''PROGN?" 
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NIL 
66/1 
2000000 
MISSISSIPPI 
6418 
3300800 
AMAZONE 
6280 
6120000 
YANG-TSE-KIANG 
2992 
1820000 
OB-IRTYCH 
5300 
3500808 
RIO DE LA PLATA 
4700 
3120800 
MEKONG 
4588 
812000 


Pour terminer, signalons qu'il est toujours avantageux de reco- 
pier (par PROGN 6 par exemple) un fichier avant de le manipuler. Cela 
permet de conserver un double au cas où un malheur arriverait… 


7° - CLASSEMENT D'UN FICHIER 


C'est en général le premier travail que l’on désire réaliser sur un 
fichier. 1! faut pour cela connaître le nombre de rubriques par enregistre- 
ment et leur type. Un classement alphanumérique ne se fait pas en effet 
comme un classement numérique ! 


Reprenons le fichier défini précédemment (fleuves) et tentons de 
le classer dans l'ordre alphabétique des noms. La méthode dite de 
« Shell-Metzner », plus rapide, mais mieux adaptée aux fichiers à accès 
direct, sera vue par la suite. 
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Le principe de la méthode est le suivant : 
partant du premier nom de la liste, nous le comparons à tous les autres. 
Chaque fois que nous en trouvons un plus « petit » (c'est-à-dire antérieur 
dans l’ordre alphabétique), nous l’échangeons avec le premier. Il est cer- 
tain qu'après cette exploration, le plus petit de tous se trouve premier dans 
la liste. En recommençant pour le 2e, pour le 3e jusqu’à l’avant-dernier, 
nous classons ainsi la liste. 


Kw “x 
ici ici 
le plus 
le plus petit de 
petit de tous 
tous ceux-ci ceux-ci 
est : est 


fin de la première passe - fin de la deuxième passe. 


Le programme s'explique alors de la manière suivante : on ouvre 
le fichier « fleuve >» non classé évidemment. On recherche alors le nombre 
N d’enregistrements, en se souvenant que chacun d’entre eux comporte 3 
rubriques. 


Après avoir dimensionné un certain nombre de tableaux utilisés 
par la suite, nous transférons les éléments du fichier dans B$ (N), E% (N), 
F (N). 3 options sont alors proposées : classer le fichier : par ordre alpha- 
bétique des noms, par longueur ou par bassin. L’algorithme de tri est évi- 
demment le même dans les 3 cas. Examinons le premier à titre d'exemple. 
(lignes 300 à 410). 


Dans un premier temps, les informations sont stockées dans un 
tableau « tampon » : K$ (N). Un tableau E (N) d'autre part, permet de se 
souvenir de l’ordreinitial. Puis, pour chaque valeur d'un indice 1 (1 <1<N-1), 
chaque élément correspondant est comparé à tous les suivants, et inter- 
changé avec eux suivant le résultat de leur comparaison. Le tri terminé, un 
fichier tampon « FLEUVES 2 » est créé. E (N) contenant maintenant 
l'ordre du classement, il faut aller chercher successivement chaque enre- 
gistrement de « FLEUVES » dans cet ordre pour remplir « FLEUVES 2 ». 
Les lignes 990 à 1020 permettent maintenant d'examiner « FLEUVES 2 » 
et de s’assurer que le tri a été fait. 
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Exemple E (1) = 3$ AMAZONE 


FLEUVES 
MISSISSIPPI | AMAZONE 
après ur SE 
! REWIND 2 ! JUMP1,6 | 
pointeur... 22 2.1 


AMAZONE 


Rappelons que les ! ERSET et ! EROFF des lignes 935 et 945 
évitent un blocage du programme lorsque Y = O conduit à un ! JUMP 
interdit. Le programme est donné à la suite, ainsi que le résultat du dérou- 
lement du programme pour les 3 options possibles. Enfin, signalons que 
lors de la mise au point d’une manipulation sur un fichier, il est prudent — 
et fortement recommandé ! — de dupliquer au départ le fichier en ques- 
tion. En cas de fausse manœuvre, il en restera ainsi une trace... 


FLEUVES6 


19 9OPEN'"FLEUVES=2" 

20 SWHERE?2 

30 ASS" 

4Q N=(PEEKCH48SF)-1)/3 

45 PRINTN 

50 DIMB$CNJ'ODIMEXCNJ 'DIME (ND :DIMECND:DI 
MKS$CNJ :DIMHXCN) :DIMGCN) 

69 2REWIND2 

78 FOR L=1 TO N 

80 2TAKE2’'A$,M%,L 

30 B$(L)=AS$ 

1800 EXCL)=M7 

119 FCL)J=ÙU 

12@ NEXTL 

130 PRINT“Voulez Vous classer ce fichie 
r en fonction:” 
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PRINT" du nom des fleuves ( 
PRINT" L 

PRINT" de leur iongueur (C2) 
PRINT" É, 

PRINT" de leur bassin (3) ? 
PRINT :GETA 


ON À GOSUB 300, 500,700 :GOT0900 


REM Classement par nom 

FOR L=I1TON 
K$CL)=BS$SCL):ECLI=L 

NEXTL 

FORI=1ITON-I 

FORJ=I+1 TO N 

IF CK$CJJ < K$C(I)) THEN 380 
NEXTJ:NEXTI 

RETURN 

K1$=K$SCI):K2=ECI) 
K$CIJ=K$CJJ':ECI)=ECJ) 
K$CJJ=K1$:ECJ)=K2 

GOTO3?70 

REM Classement par iongueur 
FOR L=ITON 

HXC(L)J=EX(LI 'ECLI=L 

NEXTL 

FORI=1TON-I] 

FORJ=I+] TO N 

IF CHYXC(J) < HXCI)) THEN 580 
NEXTJ:NEXTI 

RE TURN 

E1=HXCID:K2=ECI) 
HXCI)J=HXCJ):ECI)=ECJ) 
H4CJJ=ET:ECJ)=K2 


610 
700 
210 
220 
230 
748 
250 
260 
278 
2735 
280 
298 
800 
810 
9300 
910 
32Q 


330. 


9335 
340 
-.945 
346 
350 
9399 
368 
370 
9375 
38e 
336 


1000 
1819 
1228 
1039 


GOTO5?0 

REM Classement par bassin 
FOR L=ITON 

GCLI=FCLI ECLI=L 

NEXTL 

FORI=1TON-I] 

FORj=I+1 TO N 

IF CGCJ) < GCI)) THEN 788 
NEXTJ:NEXTI 

RE TURN 

Ei=G(I)J:K2=ECI) 
GCIJ=GCJ)J:ECI)=ECJ) 
GCJ)=E1:ECJ)=K2 

GOT0?/?70 


.ICREATE"FLEUVES2,S=3" 


FOR L=I1TON 

DREW I ND2 

Y=ECLIX3:Y=Y-3 

DERSET 

5 JUMP2,Y 

DEROFF 

Ce="" 

CTAKE2?C$,MX, L' 

PRINTCS :LPRINTCS 

5 WRITE3’C$,Mx,U 

NEXTL 

PRINT :LPRINT 

BRENINDS 

FORL=1TON 
CTAKE3'494,Bx,C':PRINTAS 
LPRINTTABCIiJASTAB(20)BXTAB(48)C 
NEXTL 

CC OSEW 
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AMAZONE 

MEKONG 
MISSISSIPPI 

NIL 

OB-IRTYCH 

RIO DE LA PLATA 
YANG-TSE-KIANG 


AMASONE 

MEKONG 
MISSISSIPPI 

NIÈ 

OB-IRTYCH 

RIO DE LA PLATA 
TANG-TSE-KIANG 


MEKONG 
RIO DE LA PLATA 
OB-IRTYCH 
YANG-TSE-KIANG 
AMAZONE 
MISSISSIPPI 
NIE 
MEKONG 
RIO DE LA PLATA 
9B-IRTYCH 
YANG-TSE-KIANG 
AMAZONE 
MISSISSIPPI 


NIL 


6288 
4500 
6418 
6671 
2300 
4700 
5552 


4500 
4700 
2300 
9992 
6280 
6418 
6671 


61200008 
810000 

3320008 
28800000 
3528000 
3120008 
18200000 


810000 

3100000 
3500000 
1800000 
6128800 
3300000 
2088000 


MEKONG 
YANG-TSE-KIANG 
NIL 

RIO' OF LA: PLATA 
MISSISSIPPI 
OB-IRTYCH 
AMAZONE 


MEKONG 4500 812000 
TANG-TSE-KIANG 5552 1820800 
NIL 6671 2000000 
RIO DE LA PLATA 4700 3100000 
MISSISSIPPI 6418 3320000 
OB-IRTYCH 5300 3520000 
AMAZONE 6280 6120000 


8° - TRAITEMENT D'ERREURS 


Le TDOS dispose d’un puissant système de traitement d'erreurs, 
mais seulement pour ses propres instructions (celles commençant par 
un : !) On sait que cette fonction intéressante ne fait pas partie du BASIC 
de l’ORIC. 


Qu'est-ce-qu'une erreur ? Il s’agit d’un blocage du fonctionne- 
ment du TDOS, car il a rencontré une instruction qu'il ne comprend pas, 
qu'il ne sait pas exécuter ou bien qu'il ne peut pas exécuter. Considérons 
l'instruction suivante : 

! SAVA « FLEUVES » 


Il y a évidemment une erreur de syntaxe dans cette commande. 
introduite directement au clavier, et après un RETURN, s'affiche un mes- 
sage dit d’« erreur » : 

SYNTAX ERROR 
BREAK 
Ready 
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Dans un programme, il y aurait eu rupture de séquence et le pro- 
gramme se serait arrêté automatiquement (sous contrôle du DOS) sur 
cette instruction. Ce pourrait être un inconvénient. 


Considérons un autre exemple. 


Lors de l'exploration des fichiers, dans les paragraphes précé- 
dents, nous avons fait remarquer qu'il était possible de connaître à priori le 
nombre de rubriques qu'ils contenaient (par ! WHERE NLU). Cela permet 
de savoir à chaque instant combien de rubriques il reste avant d'aboutir à 
la fin du fichier. 


Cependant, s’il y a une erreur involontaire dans le décompte, une 
tentative de lecture à la première rubrique non enregistrée se traduira par 
un message d'erreur « END OF FILE » qui bloquera le programme en ce 
point. C’est forcément ce qui se produira avec le petit programme suivant : 
10 ! OPEN « FLEUVES » = 100 » 

: 20 !REWIND 100 
30 ! TAKE A$ 
40 ! GOTO 30 


Au bout d’un certain temps, le programme s'arrête par : 
END OF FILE 
BREAK IN 30 
Ready 


Cependant, il est visible que dans ce cas, l’« erreur » n'est pas 
grave — elle est même normale !— et ne constitue pas un blocage du sys- 
tème. Il est donc possible avec le TDOS de contrôler ce genre d'erreurs, 
de manière à pouvoir poursuivre l'exécution d’un programme. 


La première instruction relative à ce traitemennt d'erreur est : 
! ERSET. Placée dans un programme en un point quelconque, elle empê- 
che à partir de ce point l'affichage des messages d'erreur et les BREAK 
(arrêts de programme) qui en découlent. Les instructions ayant éventuel- 
lement généré une « erreur » sont purement et simplement sautées et les 
programmes se poursuivent par les instructions suivantes. L'instruction 
en cause n'est donc pas exécutée. 


La fonctiôn inverse est ! EROFF. À partir de l'instruction qui la 
contient, toute erreur entraîne l'émission du message correspondant et un 
arrêt du programme. 


Cependant, utilisée sans discernement, l’utilisation de telles 
commandes peut être désastreuse suivant l'erreur qui s’est produite. Un 
1/0 ERROR ou un DISK FULL ER n'ont pas les mêmes conséquences 
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qu’un END OF FILE bien maîtrisé ! Aussi, est-il conseillé de toujours utili- 
ser dans la partie de programme occultée par ! ERSET l'instruction : 
|! ERR GOTON qui elle va nous permettre de vérifier le type de l'erreur. En 
effet, l’utilisation de cette instruction génère l'apparition d’un code d'erreur 
dans la mémoire + 489. (voir annexe : les messages d'erreur et leur code, 
enfin de livre). L'examen de ce code d'erreur permettra de décider ou nom 
de la poursuite du programme. 


Considérons le petit exemple suivant : 


FLEUVES” 


30 SOFEN"ELEUUES:=:029" 
42 TAKE Pa'AS.PRINTAS 
52 ?ERR GOTO70 
€S GOT048 
78 ER=-PEEK(#4R9) 
4 IF ER=15 THEN GO0108Q ELSE PRINT"'ERRE 
UR GRAVE " : 2ICLOSER :STOP 
39 PRINT'Tout s’est bien passe. 
128 SCLOSEU:STOP 
Il permet d'examiner le contenu d’un fichier, sans se préoccuper 
du nombre de rubrique qu'il contient. La seule erreur, prévisible et justifiée, 


est celle de « fin de fichier » ; il faut donc le programmer pour que tout se 
déroule normalement. 


X 


Un RUN nous permet effectivement de vérifier le contenu du 
fichier « FLEUVES ». A la fin, s'affiche le message « tout s'est bien 
passé » car au moment où l'on a tenté de lire la première rubrique non 
enregistrée (ligne 40), opération qui ne s’est naturellement pas exécutée, 
le traitement d'erreur (ligne 80) a cherché à vérifier si l'erreur trouvée est 
bien celle qui était attendue (code 15 : END OF FILE). Dans ce cas les 
lignes 90 et 100 ont été normalement exécutées. Si l'erreur avait été d'une 
autre nature, chose à priori impossible ici, il aurait fallu arrêter le traitement 
dès son apparition pour éviter un événement aux conséquences imprévi- 
sibles. 


Nous pouvons tenter d'améliorer le programme précédent en uti- 
lisant l'instruction ! SEARCH. 
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® ! SEARCH « (numéro de disque.) nom du fichier.type ». 
Cette instruction a ceci de particulier que la seule conséquence de son uti- 
lisation est dans tous les cas l’apparition d’un message d'erreur (et donc 
l'arrêt du programme en cours, sauf si ! ERSET a été préalablement 
employée). 


En mode commande, le message « EXISTING FILE » s’affi- 
chera si le fichier existe, avec son type (donc tel qu'il apparaît dans le cata- 
logue par ! CAT «») ; sinon c’est le message « FILE NOT FOUND » qui 
apparaîtra. Les conséquences sont identiques en mode programme, avec 
arrêt du programme à la ligne contenant cette instruction. 


Si ! ERSET a empêché ce type de réaction, la suite du pro- 
gramme doit tout de même prévoir la conduite à tenir suivant que le fichier 
en question existe ou non ! 


Le programme suivant, amélioration du précédent, le démontre : 
FLEUVES8 


184 2ERSET 

12 1$="" 

14 ,NPUT'NOM DU FICHIER":;B$ 

16 B$=-B$+".DAT":2SEARCHBS 

:18 SERR GOTO?8 : 

20 SOPEN"FLEUVES=190" 

38 2REWINDI180 

49 2TAKE DO’ AS :PRINTAS 

59 2ERR GOTO?8 

68 GOT040 

70 ER=PEEK(H489) 

25 IF ER = 1 THEN GOTO2@ ELSE PRINT'FIC 
HIER INEXISTANT":STOP 

278 ER=PEEKC#489) 

80 IF ER=15 THEN GOT099 ELSE PRINT'"'ERRE 
UR GRAUE" : 2CLOSEG :STOP 

98 PRINT'Tout s’est hien passe,” 

12@ 2CLOSEG:STOP 


Il y a d’abord interrogation de l'utilisateur sur le fichier qu'il veut 
examiner. Si ce fichier existe (EXISTING FILE, Code 1), il est examiné 
comme dans l'exemple précédent. S'il n'existe pas, la recherche est arrê- 
tée (ligne 75). Le STOP de cette même ligne pourrait d’ailleurs être rem- 
placé par un GOTO 14, permettant ainsi à l’utilisateur de proposer un nou- 
veau nom de fichier. 


Remarquons cependant qu'une erreur de syntaxe ligne 16 (le 
point entre B$ et DAT) génèrera systématiquement une SYNTAX ERROR 
(code 11) ; le programme bouclera alors indéfiniment sur le message 
« FICHIER INEXISTANT », même si le catalogue indique sa présence ! 


Il est donc essentiel de contrôler toutes les erreurs susceptibles 
de se présenter avant d'utiliser l'instruction ! ERSET. Une erreur de syn- 
taxe dans un programme est impardonnable à ce niveau ; il peut être utile 
de faire « tourner » un programme, sans ! ERSET quelquefois afin de 
déterminer toutes les erreurs imprévisibles susceptibles de se produire. 


A ce sujet, il peut être intéressant, lorsque de nombreux codes 
d'erreur sont examinés dans un programme, d'utiliser la commande 
TRON de l’ATMOS, qui permet d'examiner le « cheminement » mental de 
l’ensemble des opérations qui sont effectuées. 


Montrons sur un exemple différent l'intérêt de ces commandes. 
Reprenons le fichier « fleuves » et cherchons à en extraire tous les noms, 
et seulement eux. Deux solutions s'offrent à nous : 


- ® Ouvrir le fichier, replacer les pointeurs en son début et, 
sachant que chaque enregistrement est composé de 3 rubriques, dont à 
chaque fois, seule la première nous intéresse, faire des « sauts de mour- 
ton » pour ne récupérer que celles-ci. 


On remarquera qu'après un TAKE le pointeur (situé en # 48 D) 
est automatiquement incrementé, ce qui fait que, contrairement aux appa- 
rences, les JUMP doivent être de 2 unités, et non de 3. 


après le REWIND 
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après le JUMP 


Le programme s’en déduit aisément : 
FLEUVES 


1800 2OPEN'FLEUVES=2: 
1810 2REWINU2 

:028 2NHERE2 

1U30 S=PÉEKCHABF 3-1 

.D49 FORJ=BTOS-ISTEr? 

1850 A$='"" 

Q52 STAKE2'A$ 

055 2JUMP2,2 

1965 JIWHERE2:PRINTPEEK(H4BD) 
1079 PRINTAS$ 

\U8A NEXTJ 

1838 2CLOSEZ2 


et ses conséquences : 


Valeur de J Conséquences des TAKE 


Q  NIL «4 

3  MISSISSIPPI 

6  AMAZONE 

9  YANG-TSE-KIANG 
12 OB-IRTYCH 

15 RIO DE LA PLATA 
18  MEKONG 


® Une autre méthode consisterait à « rebobiner » le fichier après 
chaque extraction de rubrique, en se positionnant successivement sur la 
re, 4e, 7e rubrique. Cela correspondrait, après un REWIND à des JUMP 
‘respectifs de 0, 3, 6... Or, O est une valeur interdite pour un JUMP. Une 
telle tentative conduit immanquablement à « RANGE ERROR », puis un 
BREAK. 


Ayant donc localisé une source d'erreur « naturelle », il nous est 
possible de la masquer ; il faudra donc l’encadrer par ! ERSET et 
! EROFF. D'où le programme, et ses conséquences : 


FLEUUE 1 


1200 2OPEN' FLEUVES=2: 
1212 SREW:NI2 

i22Q LAUHEREZ 

1232 S=PEEK:448F)-: 
248 FORJ=GTOS-1STEP3 
1250 n$="" 

1952 SREWIND2 

1054 LERSET 

255 9JUNMP2,)J 

1860 92TAKE2’A$ 

1065 DUHERE 2 :eVIUTIE ENV HABU) 


“1 


19/0 PRINTAS:LPRINTJ,AS$ 
1080 NEXTJ 
10930 SCLOSE2 


Valeur de départ de + 48 D après un REWIND : 1 


Valeur du saut Rubrique concernée 
re) NIL dd 
3 MISSISSIPPI 
6 AMAZONE 
9 YANG-TSE-KIANG 
12 OB-IRTYCH 
15 RIO DE LA PLATA 
18 MEKONG 


8° - PREMIERE APPLICATION : utilisation didactique du fichier « fleu- 
ves ». Nous nous proposons d'utiliser le fichier « fleuves » pour réaliser un 
questionnaire (simple) de géographie : l’ordinateur fournissant aléatoire- 
ment un nom de fleuve (chacun une fois et une seule), il demande au ques- 
tionné la longueur du fleuve et détermine si la réponse est juste ou pas. Le 
programme comprend plusieurs parties : 


® Lignes 20 à 90 : sous programme de choix d’un nombre aléa- 
toire compris 1 et 7. Ce sera pour la suite le numéro de l'enregistrement 
concerné. 


® Lignes 100 à 220 : présentation du problème et des 7 fleuves 
qui seront utilisés dans le questionnaire. 


® Lignes 300 à 340 : l'utilisateur propose une valeur possible 
pour la longueur de ce fleuve ; l'ordinateur décide de la validité de la pro- 
position. 
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FLEUVE11 


20 L=CINTCRNDCI1)%X/+1)):UCJJ=U 
25 2=û 
26 IF J=]THEN?70 
30 FORL=1 TOJ-] 
4Q IF UCLIJ=UTHEN 2&=i 
3 NEXTE 
6Q IF2=1THEN GOTO20 
7@ PRINTU 
938 RETURN 
99 REM XXXXKX XXE KOONOKOHKOHOKOKKOHOKOKOKHOHKKHOK 
180 REM Programme 
11 REMXXXXXXXXXX AE XEHKKHOUNHHHRKHEXK 
119 CLS :PRINT'IPRINT':PRINT 
24 PRINT'UJE UAIS VOUS PROPOSER IN ÉLE 
UE CHOISI DANS LA LISTE SL :UANTE: 
139 PRINT:PRINT:PRINT 
148 DSOPEN'FLEUUES=2" 
159 LREWIND2 
159 CWHERE2 
178 S<PEEKCHA4SF 1-1 
5 A$="" 
80 FORJ=QTOS-:512r73 
159 DTAKEZ2'A$ 
2290 9JunmP?2,2 
2:89 PRINTAS 
278 NEXTJ 
248 FOR5=11797 
54 GOSiB2a 
7/66 VREWINU2 
2728 U=C3XxU)-3 
2735 9ERSET 
280 9JUMP2,U 
285 2EROFF 
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29€ STAKEZ'AS$,UX 

300 FRINT:PRINT'PRINT:PRINT 'Quelie est 
La tangueur du fieuve ‘;4$;" 7" 

318 INPUT K% 

326 IF Kx < 1,05X0Xx AND Kx > @.3SxDx TH 
ENPRINT'BONNE RÉPONSE :GOTO 354 

330 PRINT MAUVAISE RÉPONSE" 

349 PRINT"'IL FALLAIT REPONDRE :";D4 

3350 NEXTJ 


JE VAIS VOUS PROPOSER UN FLEUVUE CHOISI D 
ANS LA LISTE SUIUANTE : 


NIL 

MISSISSIPPI 
AMA2ONE 
YANG-TSE-KIANG 
9B-IRTYCH 

RIO DE LA PLATA 
MEKONG 


Quelle est La longueur du fleuve OB-IRTY 
CH ? 

5250 

BONNE REPONSE 


Quelle est la longueur du fleuve RIO DE 
LA PLATA ? 

4600 

BONNE REPONSE 


Quelle est la 
Le) 

4500 
BONNE REPONSE 


Quelle est la 
n 

6280 
BONNE REPONSE 


Quelle est la 
E-KIANG ? 
5500 

BONNE REPONSE 


Quelle est la 
2000 


longueur 


longueur 


longueur 


longueur 


MAUVAISE REPONSE 
IL FALLAIT REPONDRE: 6671 


Quelle est la 
IPPI ? 
6000 


longueur 


MAUVAISE REPONSE 
IL FALLAIT REPONDRE: 6418 


du 


du 


du 


du 


du 


fleuve 


fleuve 


fleuve 


fleuve 


fieuve 


MEKONG 


AMAZONE 


YANG-TS 


NIL ? 


MISSISS 


EXEMPLE D'UTILISATION 
DES FICHIERS 
A ACCES SEQUENTIEL 


Nous allons examiner la manière dont on pourrait utiliser les 
fichiers séquentiels, pour gérer les comptes d’un syndic de copropriété. 
Pourquoi ne pas utiliser à accès direct ? Il y a plusieurs raisons à cela. 


- Pour un syndic, tous les copropriétaires sont équivalents. Il n'a 
pas besoin'en général d’avoir accès à un compte particulier. Seul l’inté- 
resse en fin de semestre un examen séquentiel de son fichier pour 
connaître le montant des appels de fonds qu'il doit émettre. 


- De même, une dépense particulière ne joue pas un grand rôle 
individuel. Il y a en effet d’une part, l'ensemble des factures à payer et 
d'autre part, l'ensemble des dépenses couvertes. Leur connaissance glo- 
bale permet de faire des bilans et de fournir des justificatifs. 


- La lenteur d'exécution n'est pas un problème ici, dans la 
mesure où il faut de toutes façons réaliser un examen séquentiel des 
fichiers à intervalles réguliers. 


Il semblerait donc nécessaire de créer 3 fichiers : 


® un fichier compte client, contenant pour chaque enregistre- 
ment, le nom, le numéro d'appartement correspondant, la date de l'ancien 
décompte, l'imputation de dépenses en fonction des millièmes possédés 
par le copropriétaire, la balance mise à jour. 
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Le programme correspondant pourrait être le suivant : 


PROGN1 


18 9CREATE'"SYNDIC,S=1" 

28 PRINT:PRINT'"'Quel est le nombre de co 
proprietaires ":INPUT G 

30 JURITE 1°G 

4Q FOR N = 1 TO G 

50 INPUT'Nom du coproprietaire=";fñn$ 

6Q INPUT'Date du dernier decompte=";Bs$ 
78 INPUT'"'Reliquat a cette date=";SR 

8Q INPUT'Miliiemes=";M 

38 INPUT'"'DU AU =";Cs$ 

12Q INPLT'"'SOMME DUE=" ;SD 

119 INPUT'"Balance=";B 

120 2URITE 1°N,A$,BS$,SR,M,C$, SD,B 

138 NEXTN 

14Q 9CLOSE 1 


Après la création de ce fichier, il serait utile de pouvoir le consul- 
ter. C’est l’objet du programme suivant. 


PROGN2 


18 9OPEN'SYNDIC=1" 

20 A$=""iB$="":C$S="" 

25 GREWIND 1 

30 TAKE 1°’G 

4Q FOR N=1 TO G 

5Q 2TAKE l’N,A$,B$,SR,M,CS$,SD,B 

6Q LPRINT''Nom du coproprietaire,,,.;en 
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78 LPRINT"Date du dernier decompte..";B 


$ 

8Q LPRINT'Reliquat à cette date.,,,, "5S 
R;'Fr," 

98 LPRINT'Milliemes possedes.,,.,,..,"3M 
12Q@ LPRINT'A ia date du .,,,, SAS Han 5 ee "5 
C$ 

1198 LPRINT'Les nouvelles depenses ,,,.; 
SD;"FR, " 

128 iPRINT'conduisent a un SOLDE de,.., 


nésunannennen "5B;"Fr," 
139 PRINT :LPRINT:LPRINT:NEXTN 
149 DCLOSE 1 


Il'est certain qu'après la création, un certain nombre de rubriques 
ne sont pas remplies. Elles le seront par la suite, lors de la mise à jour 
semestrielles des dépenses. 


Exécution de PROGN 2 
Nom du coproprietaire...,,..., DUPONT 
Date du dernier decompte..@1/@1/84 
Reliquat a cette date..... -500 Fr. 
Milliemes possedes,..,.,,... 125 
At Le: -d'atie: du: eus. 01/01/84 
Les nouvelles depenses .., @ FR. 
conduisent a un SOLDE de...,.... -500 Fr. 
Nom du coproprietaire..,..... DURAND 
Date du dernier decompte..@1/@1/84 
Reliquat a cette date..... 1000 Fr. 
Milliemes possedes,........ ° 180 
A la. date - di , ss sors 01/01/84 
Les nouvelles depenses ... @ FER. 
conduisent a un SOLDE de...,,.., 12008 Fr 
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Nom du coproprietaire......,, BRUN 
Date du dernier decompte..@1/01/84 


Re liquat a cette date..... 300 Fr. 
Milliemes possedes,....... 235 

A: La. daté: dur 4 in se 01/01/84 

Les nouvelles depenses ... @ FR. 
conduisent a un SOLDE de....,,,, 300 Fr. 
Nom du coproprietaire.,..,,..., BELLO 

Date du dernier decompte..@1/@81/84 

Re liquat a cette date..... -800 Fr. 
Milliemes possedes,,..,.,.,.. 250 

A l'a: date ‘du... ME st 01/01/84 

Les nouvelles depenses ... @ FR. 
conduisent a un SOLDE de,...,... -800 Fr. 
Nom du coproprietaire,,...,.,.,, DRENO 

Date du dernier decompte..@1/@1/84 

Re liquat a cette date..... 2008 Fr. 
Milliemes possedes.....,... 150 

À: La ‘date. du- 2.4.1 Aa 81/81/84 

Les nouvelles depenses .….. @ FR. 
conduisent a un SOLDE de........ 788 Fr. 


® Deux fichiers distincts, l’un pour les dépenses à couvrir, l’autre 
pour les factures (archives). 
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Il faut d’abord les créer. 


PROGN3 


19 SCREATE'"DEPENSES,S=i" 
20. ÉCRENTE"FACTURES, S=2" 
30 CLOSE 9 


Puis, les mettre à jour : 


PROGN4 


19 SOPEN'"DEPENSES=1" 

15 2OPEN'FACTURES=2" 

28 DAPND @ 

:30 PRINT'Uouiez vois ajouter une depens 
e (CO/Nj)?7":GET À$ 

4@ IF A$="N" THEN GOTO 120 

98 INPUT'"'Date de ia depense ‘;D$ 

60 INFÜT'Nature de la depense";E$ 

7@ iNPUT'"'Montant de la depense‘";A 

80 PRINT:PRINT'REGLEZ VOUS CETTE DEPENS 
E CON) P'IGET A$ 

93Q IF A$="O0O" THEN M=M+A:OWRITE 2’D$,E$, 
A 

108 IF AS$="N'THEN 2WRITEl1’D$,E$,A 

119 PRINT PRINT :PRINT :GOT030 

12@ 9CLOSE 8 

13Q PRINT :PRINT:PRINT:PRINT'LE MONTANT 
TOTAL À REGLER SE MONTE A:";5M;"Francs,. 


Les dépenses sont alors aiguillées soit vers « FACTURES » si 
elles sont réglées dans l'immédiat, auquel cas la variable Mtient le compte 
de la somme globale à régler, soit vers « DÉPENSES » si elles sont en 
suspens pour une raison quelconque. 
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Le montant total à régler à la suite de cette opération est fourni 
par le programme. 


10 
es 
20 
30 
43 
46 
90 
60 
70 
80 
30 
cop 
100 
105 
110 
128 
130 
140 
150 
160 
170 
180 
“pro 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


REMExamen des depenses et des factur 


SOPEN'"DEPENSES=1" 
QOPEN'"FACTURES=2" 

SREWINDI1 

2REWIND2 

SWHERE 1 
D=PEEKC#H48F)-1 

DWHERE?2 
F=PEEKCH48F)-1 
PRINT'Les depenses a la charge de la 
ropriete sont les suivantes :" 
PRINT :PRINT :PRINT 
D$="":pg-="" 

FORN=1TOCD/3) 

2TAKEl1’D$,E$,A 


PRINT'Montant......... "SAS'FR.”" 
PRINT'Date,, sus sus ",D$ 
PRINT'Nature,.......... "3ES$ 
PRINT :PRINT :PRINT 

NEXTN 


PRINT'Les depenses reglees par la c 
priete sont les suivantes :" 

PRINT :PRINT :PRINT 

FORN=1TOCF/3) 

2TAKE2’D$,E$,A 


PRINT Montant. 244635 SAS PR, 
PRINT DAT sut see ";D$ 
PRINT"'Nature...,....... "35ES$ 
PRINT :PRINT:PRINT 

NEXTN 

ÿCLOSEQ 


STOP 
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Il'est possible d'examiner le contenu de ces 2 fichiers à l’aide du 
programme ci-dessus. 


Les depenses a la charge de la coproprie 
te sont les suivantes: 


Montant..... .... 17008 FR. 
Dates aiuansse 03/04/84 
NATUT Es mare ELECTRICITÉ 
Montant...... -.. 1300 FR. 
Date,.......,,..18/06/84 
Nature..,.,...., GARAGE 


Les depenses reglees par la copropriete 
sont les suivantes: 


Montant, 25e 700 FR. 
Date, sas surtt 25/04/84 
Nature.,...,,.,,, EAU 
Montant, 444.4. 2500 FR. 
Dates... em." 12/05/84 
Natures se cies IMPOTS 


102 


Dans le cas présent, la somme à régler et donc à répartir entre les 
copropriétaires se montent à 3.200 F. Il faut donc maintenant faire appel 
au fichier « SYNDIC », chercher pour chaque copropriétaire le nombre de 
millièmes qu'il possède et lui imputer la somme correspondante. Puis, en 
fonction du reliquat du relevé précédent, établir sa nouvelle balance. Ainsi, 
il faudra appeler chaque enregistrement dans sa totalité puis le réécrire en 
tenant compte des nouvelles données. 


: date du décompte rep 
l ancien 
I nouvelles dépenses | (nouvelles dépenses) 
PROGN! & De pres a 
mi 


12 REM Repartit ion des charges 
15 INPUT'Quei jour $ommes nous'";C$ 
2@ INPUT'GUELLE LA SOMME À REGLER';A 
30 TOPEN'SYNOIC2=1" 
49 UREWINDI 
5Q 2TAKE]j'G 
GS ASS EBSs réa 
6Q FOR N=1 TO G 
2@ 2TAKEl'L.A$,B$,SR,M"M,D$, SD,B 
80 B$=D$ :D$=C$ :SR=B:SD=AXM/1200 
90 S=B-SD 
119 OWHERE] 
120 O=PEEK(#H48D)-7 
130 REWINH] 
149 9JUMP1,9 
145 PRINT, SD, SR,S 
158 2WRITE:’B$,SR,M,DS$, SD,S 
182 NEXTN 
190 9CLOSE] 
208 STOP 
Ce programme effectue donc la mise à jour du fichier « SYN- 


DIC ». 
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Nom du coproprietaire.....,.,.DUPONT 
Date du dernier decompte..@1/81/84 


Re liquat a cette date...., -500 Fr. 
Milliemes possedes,...,..,, 125 

A La date du .,,..,.,.,,.,..,., 01/07/84 

Les nouvelles depenses ... 408 FR. 
conduisent a un SOLDE dé,.... ... 900 Fr. 
Nom du coproprietaiTe....sses DURAND 

Date du dernier decompte..@1/01/84 

Re liquat à cette date..... 1200 Fr. 
Milliemes possedes,,..,..,,., 180 

A La date du.….,.,.,,::.,..,,., @1/@7/84 

Les nouvelles depenses ... 576 FR. 
conduisent a un SOLDE de,.....,. 424 Fr. 
Nom du coproprietaire,..,.....BRUN 

Date du dernier decompte..@1/@1/84 

Re liquat à cette date,.... 300 Fr. 
Milliemes possedes....,.... 295 

A: Las dates dr, aa Sas @1/07/84 

Les nouvelles depenses ,.. 944 FR, 
conduisent a un SOLDE de...,.,,,. -644 Fr. 
Nom du coproprietaire...:...,BELLO 

Date du dernier decompte..@1/@1/84 

Re liquat à cette date,..... -800 Fr. 
Milliemes possedes,.,,,,.,. 250 

A: La-daté dU.és2s 4 urmss 01/07/84 

Les nouvelles depenses ... 800 FR. 
conduisent a un SOLDE de......,.-1600 Fr 


Nom du coproprietaire...ssess DRENO 
Date du dernier decompte..21/01/84 


Re liquat à cette date..... 200 Fr. 
Milliemes possedes,.....,.. 150 
À La: date di sas nées te 01/07/84 


Les nouvelles depenses ... 480 FR. 
conduisent a un SOLDE de..,,,,,, 22@ Fr. 


Ilest possible de vérifier que les 3.200 F en question ont bien été 
répartis entre les copropriétaires, en fonction de leurs millièmes respectifs, 
en lançant « PROGN 2 ». 


Une fois la mise à jour de « syndic » effectuée, il nous faut préve- 


nir individuellement chaque copropriétaire de l’état de son compte et faire 
un appel de fonds auprès de ceux pour lesquels celui-ci apparait être débi- 
teur, d'où le programme : 


PROGN& 
19 REM Appel de fonds 
28 INPUT'QUEL JOUR SOMMES NOUS" ;ES 
30 PRINT':PRINT:A$S=""IBS$S="":CS:"" 
4Q COPEN'SYNDIC2=i" 
50 JREWINDI 
68.92TAKE1l°G 
78 FOR N =1 TO G 
80 STAKEl'LU,AS,BS$,SR,M,CS$,SD,B 
30 IFB<OTHENGOSUBA4NQEiSEGOSiBSAg 
199 NEXTN 
119 9CLOSEG 
128 STOP 


4QQ REM Lettre pour ies debiteurs 


41Q CLPRINT'Monsieur "3;A$:LPRINTTAB(3S)" 


Marseilie,;ie ‘;E$ 
420 LPRINT'Residence FiORIDA no'"';l 
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436 LPRINT:ELPRINT :LPRINT :LPRINT 

44Q PRINT" Monsieur," 

45Q LPRINT:LPRINT" L'examen semes 
triel des comptes de VLotre ‘; 

«469 LPRINT'copropriete au ";C$;" laisse 
apparaitre a votre debit la somme de"; 
49Q iPRINT" “;-B;"Fr.Je vous serais gre 
de bien VLouioir ia couvrir dans les"; 
48Q LPRINT" meilleurs deiais."” 

499 LPRINT:LPRINT:LPRINT" Je vous 
prie d’agreer;Monsieur,;li’exp,...,, % 

500 FORJ=1TO18:LPRINT:NEXTJ 

514 RETURN 

890 REM Lettre pour iles autres 

819 iPRINT'Monsieur "3;A$:LPRINTTAB(C3S5)" 
Marseiiie,;ie “;E$ 

829 LPRINT'Residence FLORIDA no'";l 

830 PRINT :LPRINT :LPRINT :LPRINT 

340 LPRINIT" Monsieur," 

859 LPRINT':LPRINT" L'examen semes 


nm 


triel des comptes de votre 5 


860 LPRINT'copropriete laisse apparaitr 
e à votre credit la somme de”;B;'"Fr," 
87Q LPRINT" En consequence;aucun àp 
pei de fonds ne sera effectue ce trim‘; 
882 iPRINT'estre," 

899 LPRINT:LPRINT:LPRINT‘ Je vous 
prie d’agreer,;Monsieur,li’/exp,..,,, ' 
38Q FORJ=1TOIB':LPRINT'NEXTYJ 

919 RETURN 


Monsieur DUPONT 


Marseille,;le 02/03/84 
Residence FLORIDA no 1 


Monsieur, 


L'examen semestriel des comptes d 
e Votre copropriete au @1/@7/84 laisse a 
pparaitre à votre debit La somme de  9@@ 
Fr.Je Vous serais gre de bien vouloir I 
à couvrir dans les meilleurs delais. 


Je vous prie d’agreer,;Monsieur,l’e 
KP 0 0 


Monsieur DURAND 


Marseille,;le @2/@9/84 
Residence FLORIDA no 2 


Monsieur, 


L'examen semestriel des comptes d 
e Votre copropriete laisse apparaitre à 
votre credit La somme de 424 Fr. 
En consequence ,aucun appel de fdnds 
ne sera effectue ce trimestre, 


Je Vous prie d’agreer,;Monsieur,l’e 
XP sms 
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Monsieur BRUN 
Marseille,;le 02/09/84 
Residence FLORIDA no 3 


Monsieur; 


L'examen semestriel des comptes d 
e votre copropriete au @1/07/84 laisse a 
pparaitre a votre debit la somme de 644 
Fr.Je Vous serais gre de bien vouloir l 
à couvrir dans les meilleurs delais. 


Je- Lous prie d’agreer,;Monsieur,;l’e 


Monsieur BELLO 
Marseille,le 02/03/84 
Residence FLORIDA no 4 


Monsieur; 


L'examen semestriel des comptes d 
e VLotre copropriete au @1/@7/84 laisse a 
pparaitre a votre debit la somme de 160 
Q Fr.Je Vous serais gre de bien vouloir 
La couvrir dans les meilleurs delais. 


Je VLous prie d’agreer,Monsieur,l’e 


Monsieur DRENO 
Marseille,le 82/09/84 
Residence FLORIDA no 5 


Monsieur; 


L'examen semestriel des comptes d 
e votre copropriete laisse apparaitre à 
votre credit la somme de 220 Fr. 
En consequence;aucun appel de fonds 
ne sera effectue ce trimestre, 


Je Lous prie d’agreer;Monsieur,l’e 
XP a acc 


-Cependant, certaines dépenses ont été laissés en suspens (liti- 
ges.). On peut en examiner la liste de temps à autre, et éventuellement. 
se décider à régler certaines d’entre elles. D'où le programme. 


PROGNI i 
19 REM Regiement des depenses en suspen 


29 SCREATE"DEPENSE!, S=3" 
30 LOPEN"DEPENSES=1" 

49 SOPEN"FACTURES=2" 

45 D$="":p$="":M=0 

5Ü LAPND2 

69 SREWINUI 

?Q WHERE 

89 A=C(PEEKCH48SF)-1)/3) 
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92 FORN=ITOR 


120 
110 


2TAKE1’D$,E$,S 
PRINTDS,E$,S3"Fr." 


129 PRINT'Uouiez vous regler cette depe 


nse?" 
130 
140 
150 
168 
170 
130 

M3"FT 
190 
280 
218 
220 
300 
305 
310 
320 
490 
419 
C2 


Celui-ci fait intervenir 3 fichiers : DEPENSES et FACTURES, 


GETBS 

IF B$="O"THEN GOTO300 
IF B$="N"'THEN GOTO400 
GOTO 129 

NEXTN 


PRINT'Le montant a regler est de ‘“; 


QCLOSEU 

CDEL'"DEPENSES, DAT" 

DRENANME "DEPENSE1.DAT=DEPENSES., DAT" 
STOP 

REM Passage DEPENSES -»> FACTURES 
M=M+S 

DWURITEZ2?7D$,E$,S 

GOTO1?0 

REM Passage DÉPENSES -»> DEPENSEI 
DWRITE3'D$,ES$,S 

GOTO 170 


déjà connus et un nouveau fichier tampon : DEPENSE 1. 


DEPENSES est examiné à partir du début (par ! REWIND) 
séquentiellement. Deux solutions existent pour chaque enregistrement : 


- soit l’on décide de régler la dépense, auquel cas l'enregistre- 


ment est transféré dans FACTURES, 


- Soit l’on persiste à la laisser en suspens ; l'enregistrement est 


alors transféré dans DEPENSE 1. 


L'enregistrement est alors transféré dans DEPENSE 1. Une fois 
tout le fichier examiné, DEPENSES est détruit, pour être remplacé par 


DEPENSE 1, qui 
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prend alors son nom. 


3 


Les depenses a la charge de la coproprie 
te sont les suivantes: 


MOÉ ANT se ie à 1300 FR. 
Date. 4 ie net. 18/06/84 
Nature,,,,.,,,,,, GARAGE 


Les depenses reglees par la copropriete 
sont les suivantes: 


Montant buse 208 FR. 
D'at:éi. 2 rase à 25/04/84 
Nat Te uen ee EAU 
Montant.,...,.,.. 2500 FR. 
Maté set 12/05/84 
NAT LIT ut mue à eee 5 IMPOTS 
Montant dessus 1700 FR. 
Date ss sa sus ba se 03/04/84 
NatUT es 58 3 ELECTRICITÉ 


Dans notre cas, nous décidons de régler le poste ELECTRICITE. 
Un examen de DEPENSES et FACTURES par PROGN 5 nous confirme 
que tout s’est bien passé. 
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LES FICHIERS A ACCES DIRECT 
INTRODUCTION 


Ils sont parfois appelés aussi fichier à accès aléatoire. Cela ne 
veut pas dire que retrouver une information tient du hasard (bien que dans 
certains cas. !), mais que pour accéder à l'information souhaitée on n’a 
pas besoin de connaître toutes les informations précédantes. 


Les fichiers à accès séquentiels sont relativement faciles à met- 
tre en place et à consulter. D'autant plus que le DOS offre des instructions 
puissantes de maniement. Néanmoins la recherche d’un enregistrement 
précis est relativement longue, la mise à jour du fichier nécessite générale- 
ment la recopie dans un autre fichier. 


Ces inconvénients sont partiellement gommés avec les fichiers à 
accès direct. L'accès direct est permis avec un lecteur de disquette car la 
tête a la possibilité d'accéder à n'importe qu'elle piste. (En réalité on 
n’accède donc pas directement à un enregistrement mais à une piste, 
ensuite une lecture séquentielle des secteurs de cette piste permet de 
trouver l'enregistrement, cette manœuvre restant totalement transparente 
pour l'utilisateur car c'est le DOS qui se préoccupe de la recherche). 
Notons cependant que le DOS doit connaître les pistes sur lesquelles est 
sauvé le fichier et doit aussi connaître le nombre d'enregistrement par 
piste pour pouvoir calculer le numéro de la piste où se trouve un enregis- 
trement donné. Cette dernière contrainte impose des enregistrements de 
longueurs fixe et constante à l’intérieur d’un même fichier. 
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Le problème avec un fichier à accès direct est que pour accéder à 
un enregistrement il faut connaître son numéro d'enregistrement, ce qui 
n'est pas toujours le cas, dès ce moment on n’est plus dans les conditions 
de l'accès direct et il faut parcourir le fichier séquentiellement (on a rien 
gagné et on a perdu de la place sur le disque). Nous verrons quelques 
méthodes d'accès à un enregistrement sans connaître son numéro. 


Le lecteur de disquette a 3 instructions spéciales pour les fichiers 
à accès direct. ! CREATE, ! WRITE, ! TAKE. 


Pour utiliser un fichier à accès direct la procédure est la même 
que pour un fichier à accès séquentiel, il faut d'abord le déclarer, le créer 
ou l'ouvrir, puis on peut lire les informations, écrire de nouvelles infos, 
ensuite il faut le refermer. 


© ! CREATE « (numéro de disque.) nom du fichier D = NLU, LR, NE> 


NLU est le numéro logique affecté au fichier. Il a la même signifi- 
cation que pour un fichier à accès séquentiel. NLU doit être compris entre 
1 et 255 ; 9 n'est pas autorisé, NLU peut être un nombre hexadécimal ou 
même une variable numérique. 


LR : longueur d'enregistrement, elle est comptée en octets, LR 
inférieure à 255. 


L'enregistrement à une longueur fixe celle que vous allez décla- 
rer, les rubriques ont, elles, une longueur variable qui est de toute façon 
incluse ou égale à LR. Il va falloir que vous évaluiez cette longueur. Pour 
cela, il faut connaître qu'elles sont les rubriques qui formeront le fichier. 
Exemple : imaginons que l’on veuille mettre sur un fichier un carnet 
d'adresse. 


Une adresse c’est un nom + un prénom + une rue + n° de rue + 
code postal + ville + n° de téléphone. 
DURAND Jacques 
30 rue Bizuz 
13410 MARSEILLE 16 (91) 99.33.20 
Pour chaque champ on va définir la place occupée sachant qu’une varia- 
ble entière occupe 8 octets, 
- une Variable réelle occupe 17 octets, 
- une variable alpha occupe 1 octet par caractère dans la chaîne + 2 
octets. 
Pour notre exemple : 
nom = 10 caractères + 2 Alpha 
prénom = 10 caractères + 2 Alpha 
n° rue = entier 8 octets 
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nom rue = 50 caractères + 2 Alpha 
code postal = entier 8 octets 

ville = 20 caractères + 2 Alpha 

n° téléphone = 12 caractères + 2 Alpha 


Dans cet exemple : 
LR = 10 + 2 + 10 + 2 + 8 + 50 + 2 + 8 + 20 + 2 + 12 + 2. 
LR =128 octets. 


NE : nombre d’enregistrements réservés à l'avance, il condi- 
tionne la place réservée sur le disque. Il faut le gérer en fonction de l’éten- 
due prévue du fichier. Ce n’est pas toujours très commode de prévoir à 
l'avance l'importance du fichier. Dans le cas où le fichier source devient 
trop petit on peut s’en sortir en le recopiant séquentiellement dans un autre 
fichier plus grand. 


Dans notre exemple, la place pour 200 fiches (200 adresses 
complètes) occupe 103 secteurs. En effet, chaque secteur est constitué 
de 256 octets donc il va 2 enregistrements par secteur (200/2 = 100 sec- 
teurs) les 3 secteurs restant sont utilisés pour le descriptif au fichier :ils ne 
sont pas accessibles à l'utilisateur. 


Nous allons créer un fichier pour notre répertoire téléphonique 
| CREATE « AGENDA, D = 1, 128, 200 » 


: La commande ! CAT «» nous permet de vérifier l'effet de 
! CREATE. Maintenant dans la liste des fichiers apparaît : 

U AGENDA .DAT D 103 SECTORS. 

En clair AGENDA est un fichier direct (D), donc de type DATA (DAT) il n'est 
pas protégé en écriture /effacement (U), il occupe sur la disquette 103 
secteurs. 


- l'utilisation de la fonction ! CREATE «...» pour un fichier qui existe déjà 
conduit au message d'erreur 

EXISTING FILE ! 

- Vous ne pouvez pas non plus utiliser un fichier à accès séquentiel de 
même nom. 


® ! OPEN « (numéro de disque.) nom de fichier = NLU » 


Cette instruction permet de travailler dans un fichier qui existe 
déjà. Elle signale au DOS de sortir le « dossier » nom de fichier, de le pla- 
cer à l'endroit désigné par le nombre NLU. En termes plus informatiques 
cette instruction vous permet d'accéder au fichier en lui attribuant un 
numéro NLU. NLU peut être explicite dans l'instruction ou représentée par 
une variable. NLU doit être 1<NLU<255. ÿ n'est pas autorisé. Une tenta- 
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tive d'ouverture d’un fichier qui n’a pas encore été créé conduit immanqua- 
blement au message d'erreur n°7 : FILE NOT FOUND . L'écriture ou la lec- 
ture d’un fichier fermé produit le même message d'erreur. 


@ ! WRITE NLU, E’ A,B,C,D%,K% ,A$ 


Cette instruction permet d'écrire dans le fichier NLU, à l'enregis- 
trement E, les variables réelles A,B,C, les variables entières D%, K% et la 
variable alphanumérique A$ sous réserve que la longueur d’enregistre- 
ment prévue soit supérieure ou égale à (17 x3 + 8x2 + 2 + nombre 
caract A). Les rubriques sont enregistrées dans cet ordre : il ne s’agira 
pas de les lire dans n'importe quel ordre car sinon le résultat obtenu sera 
incohérent. 


Tous les types de variables sont acceptés sauf les tableaux de 
chaînes de caractères et les tableaux entiers ou réels de plus d'une 
dimension. 


AS (1) A (1) 
C% (1,1) B% (1) 
Mauvais Bon 


Que se passe-t-il si un enregistrement est plus long que le nom- 
bre d'octets autorisés au moment de la création du fichier ? Dans ce cas le 
DOS détecte une erreur et renvoie le message : OUT OF DATA (n°16). Ce 
qui signifie qu'on a essayé d'écrire sur un enregistrement voisin. L’enre- 
gistrement sur lequel on a tenté de mordre n’est cependant pas détruit. 


E est le numéro qui permet d'écrire dans un enregistrement parti- 
culier. En effet, rappelons-le dans un fichier à accès direct les enregistre- 
ments ne sont pas obligatoirement contigus. E permet d'adresser chacun 
d'eux. E doit être compris entre 1<E<65535 ou + FFFF ; il peut être repré- 
senté par une variable. E ne doit pas être plus grand que le nombre maxi 
de fiches sinon le message « END OF FILE » est généré par le DOS. 


Remarques très importantes : le nom d’une variable alphanu- 
mérique ne doit en aucun cas être suivi par un espace. 
IWRITE 1,2’, A$2, Bou! WRITE 1,2’'B,A$2 sont des expressions erron- 
nées si 2 représente un espace. 
! WRITE 1,2’ A$,B et ! WRITE 1,2’B,A$ sont correctes. L'espace conduit 
au message : SYNTAX ERROR, et comme il est invisible c'est une erreur 
difficile à corriger surtout en fin de ligne donc Attention ! 
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Une variable chaîne de caractères doit être initialisée avant 
d'être utilisée. Autrement dit il faut déclarer dans le programme toutes les 
variables alphanumériques utilisées . Par exemple : 

10 A$=«» 

20 OPEN «TEL=1» 

30 ! WRITE 1,1,A$ 

si on omet la ligne 10, RUN est suivi par MISSING VARIABLE message 
d'erreur n° 14. 


Lecture dans un fichier à accès direct. 

! TAKE NLU, E’ A,B,C$,D%,J(l) 

Permet de saisir dans l'enregistrement n° E du fichier n° NLU les rubriques 
et de les affecter aux variables réelles A,B aux variables alphanumérique 
C$, entière D% et réelle en tableau à 1 dimension J. Naturellement le type 
des variables enregistrées doit correspondre au type des variables lues. 
S'il n'y a pas concordance le message « ? TYPE MISMATCH ERROR » 
est édité. 

* E représente le numéro d'enregistrement, il doit être compris 
entre 1<E<65535 ou + FFFF ; il peut être contenu dans une variable. 
C'est grâce à ce nombre que l’on peut accéder à un enregistrement parti- 
culier dans le fichier. 


Les remarques formulées au sujet de l'instruction ! WRITE res- 
tent valables : une chaîne de caractère doit être déclarée avant d’être utili- 
sée. | 

- [| ne doit pas y avoir d'espace après une variable chaîne de 
caractère. 

! CLOSE NLU ou ! CLOSE ÿg 


Permettent (comme dans le cas de fichiers à accès séquentiels) 
respectivement de fermer le fichier de numéro logique NLU et de fermer 
tous les fichiers en cours. 
| CLOSE 2 ferme le fichier référencé 2. 

Il est bien sûr impossible de lire ou d'écrire dans un fichier fermé (de la 
même façon que vous ne pouvez ni lire, ni écrire au travers d’une pochette 
ou d’un dossier fermé). 


® ! WHERE NLU et! APND NLU 


Notons pour mémoire que ces 2 instructions bien que réservées 
aux fichiers à accès séquentiels fonctionnent pour les fichiers directs, leur 
intérêt n’est pas très grand ici. 
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! WHERE NLU fourni à l'adresse = 48 F le nombre d’enregistre- 
ments réservés pour le fichier lors de l'instruction ! CREATE «>» par exem- 
ple : 
| CREATE « ESSAI, D = 1, 100,50 » + 
WHERE 1 = et PRINT PEEXK (# 48 F) affiche 50 


® ! WL NLU et WUL NLU 


| WL NLU : (Write Lock) permet d'empêcher l'écriture dans un 
fichier déjà ouvert. Cette instruction est pratique surtout pendant la phase 
de mise au point d’un programme. Ainsi, elle évite de détruire par erreur 
les enregistrements d’un fichier précieux. 
! WUL NLU : est la commande inverse. 


Attention : ! WL NLU est moins puissante que ! LOCK «..» elle ne 
protège pas le fichier contre ! DEL, ! SAVE. 


Maintenant que nous avons vu les principales instructions d’un 
fichier à accès direct nous allons les manipuler pour nous familiariser. 


Ce programme est très simple au début, ensuite nous allons le 
peaufiner un peu au fur et à mesure que nous prendrons plus d'assurance 
avec ce type de fichiers. 


Pour l'instant définissons les rubriques de notre fichier. On va uti- 
liser celles du fichier défini au paragraphe ! CREATE, on va réserver la 
place pour 10 fiches. Supposons dans un premier temps que le numéro 
d'enregistrement sera donné de façon arbitraire ; dans l’ordre où on pense 
aux personnes on leur attribue leur numéro. 


1° - CREATION DU FICHIER 


On utilise simplement l'instruction. 
| CREATE « AGENDA, D = 1, 128, 10 » æ (æ = return) 
un coup d'œil au catalogue montre 
U AGENDA e DAT D 8 SECTORS. 
Notre fichier occupe 5 secteurs pour les fiches (10 x 256 : 128) 
+ 3 secteurs pour le DOS. 


2° - SOUS PROGRAMME DE REMPLISSAGE 
DU FICHIER 


Commentaires : 
La ligne 50 affecte au fichier « agenda » précédemment crée le numéro 
logique 1, donc chaque fois que nous ferons référence au fichier n° 1 nous 
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nous adresseron 


sà« agenda ». 


60 : NE représente le nombre d’enregistrements pour lequel a été dimen- 


sionné le fichier. 
70 : EC = enreg 


istrement courant. C’est le compteur d'enregistrement il 


permet d'écrire dans le fichier. EC est incrementé de 1 à chaque tour de 


boucle (240). S'il 
REMP 


1 C 
10 
20 
30 
40 
50 
6Q 
28 
80 
30 
190 
110 
128 
130 
140 
150 
160 
170 
180 
190 
200 
218 
220 
E$ 
230 
240 
250 
260 
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devient plus grand que NE on sort de la boucle (270). 


LISS 

LS 

2 XX XX KNRKHOHONONHOKKOKKKKKOHOKKKIOHOHOHHK 
x OUVERTURE DU FICHIER X 
DK XKXOHOHOK HONOR KOHON HR HAN KR AOHKHOHAHOHHX 
PRINT "FICHIER AGENDA" 


SOPEN"AGENDA=1" 


NE=10 

EC=1 

3 

2 KAIRIIIIIIIIINRX 
4 REMPLISSAGE OÙ FICHIER  * 
2 XOOOOOO IR IIRX 
)] 

REPEAT 
INPUT'NOM ";NO$ 
INPUT "PRENOM ‘" ;5PNS$ 
INPUT'NUMERO DE RUE “;NR4 
INPUT"ADRESSE ";ADS$ 
INPUT"CODE POSTAL ";CP 
INPUT'UILLE "3jUIS 
INPUT'NUMERO DE TELEPHONE "“jTE$ 
3 
2URITE1,EC’NOS$, PNS, NRX, ADS, CP,UIS,T 
D 

EC=EC+1 

PRINT “ENCORE UN ENREGISTREMENT ?" 
GET AS 


278 UNTIL EC=11 OR A$< "0" 


280 ? 

300? XXXX XX XX NAHH AIO AOHOHOHOHK HO HIONHOAK 
310 ?’X FERMETURE DU FICHIER X 
320 ?XXXXXXXXKXEAXKXEXKEXEKKKEKKKKXKKX 
330 ? 

34Q 2CLOSEIT 

350 END 


EXEMPLE D’EXECUTION 


FICHIER AGENDA 

NOM ? ASPER 

PRENOM ? JUILES 

NUMERO DE RUE ? 12 

ADRESSE ? RUE BLEUE 

CODE POSTAL ? 84000 

VILLE ? AUIGNON 

NUMERO DE TELEPHONE ? 90 87 23 15 
ENCORE ÜN ENREGISTREMENT ? 


130-200 : Affectation des variables ; 

On remarque simplement que le code postal occupe une variable 
réelle, pourquoi ? bien que le code postal soit toujours un entier, une varia- 
ble entière ne convient pas car elle ne peut contenir que des nombres « 
32768. 


220 : C'est cette ligne qui écrit dans le fichier, les rubriques sont placées 
dans l’ordre NOM, PRENOM, NUMERO DE RUE, ADRESSE, CODE 
POSTAL, VILLE, NUMERO DE TELPHONE. 

340 : fermeture du fichier, ! CLOSE 9 aurait aussi convenu. 


3° - SOUS PROGRAMME DE LECTURE 
DANS LE FICHIER. 


Maintenant nous allons récupérer les informations emmagasi- 
nées dans le fichier. (voir programme lecture d’un fichier). 
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Commentaires : 
50 : ouverture du fichier cette manœuvre est systématique 
60 : NE nombre total d'enregistrements du fichier. 
70-80 : Déclaration des variables qui récupèrent les différentes rubriques 
d’un enregistrement, cette phase est absolument nécessaire uniquement 
pour les variables alphanumériques. 
130-140 : Choix de l'enregistrement à lire ; Ici est la grande différence 
entre les fichiers à accès direct et séquentiel. Vous pouvez lire n'importe 
quel enregistrement dans un ordre quelconque. 
145 : vérification que le numéro donné est bien dans les limites du fichier. 
150 : lecture de l'enregistrement dans le fichier. 


Lecture d’un fichier. 
LECAG 
1 CLS 
18 XXXKKKKXAKEKEREIIERERERERKEXEREX 
2@ x OUVERTURE DU FICHIER x 
30 ?XKXKXKXKXKKKKKXKKRKEXEKEREEXKKKKEREKRERK 
35 ? 


4@ PRINT "LECTURE DU FICHIER AGENDA" 
50. 2OPEN "AGENDA=1" 


68 NE-10 

70 NO$="" :PN&="" INR4=0 :AD$="" 
BQ CP=G:UI$="":TES="" 

30 ? 


180 ?XXXXKXKKKXKAKARK AH HUE KEHMOHNHHHK 

119 °X. LECTURE DANS LE FICHIER * 

12Q ?XXXKXXKKKKKKKKEKKRKAKEERERKXKANK 

129: 

138 PRINT "DONNEZ LE NUMERO D’ENREGISTR 
EMENT” ; 

148 INPUT NE 

150 2TAKE1,NE?NOS$, PNS$S,NRX, ADS, CP,UIS,TE 
$ 

16Q PRINT "NOM :"3N0$;"  ";PN$ 

17Q PRINT "ADRESSE :" 
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180 PRINT NRX;" ";ADS$ 


198 PRINT * "3CP3" MAUIS 

200 PRINT'NUMERO DE TELEPHONE : "3TES$ 
21@ PRINT 

220 PRINT "UN AUTRE ? CO/NJ "; 

230 GET AÀ$ 


24Q IF A$="O"THEN GOTO 130 
250 IF A$="N'THEN CONT ELSE GOTO 230 
300 ?XXXXXKXKXKXKKXKEKKIRIHNHARINRIRHHEX 


310 ?’X FERMETURE DU FICHIER X 
320 ?XXXXXKXKKXKKKXKKEKKEEKKRERKEKKKKX 
330 ? 

34Q 2CLOSEG 

35Q END 


LECTURE DU FICHIER AGENDA 
DONNEZ LE NUMERO D'ENREGISTREMENT 1! 
NOM :DUPONT  JACQUES 


ADRESSE 
19 CHEMIN DES SALINS 
13812 MARSEILLE 


NUMERO DE TELEPHONE : 91 42 35 87 


UN AUTRE ? CO/N) 


160-200 : Mise en forme du texte à afficher sur l'écran. 
250 : lecture d’un autre enregistrement ? 
340 : si non fermeture du fichier. 


4° - Vous venez de rencontrer de nouveaux amis et vous voulez mettre à 
jour votre fichier. Le programme suivant vous en donne la possibilité. Mais 
auparavant il se pose un problème comment savoir si un enregistrement 
est libre puisque nous ne sommes pas obligés d'écrire les enregistre- 
ments les uns à la suite des autres. 
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Nous voyons apparaître une contrainte supplémentaire : pouvoir 
distinguer un enregistrement vide d’un occupé. La solution à ce problème 
la plus souvent employée est de remplir les enregistrements d’un carac- 
tère nul pendant l'initialisation. 


INITFICH 


1 ?XXXXXXXKXXKKXKXEKXKXKEXEKKKKEREREREX 


28 ?’* CREATION D'UN FICHIER X 
30 ?XXXXXXKXKKKKKKKEKXEXEXEXEREREKAKK 
4Q ? 


5Q INPUT "NOM DU FICHIER "3N$ 
6@ INPUT "NOMBRE MAXI D’ENREGISTREMENTS 
es 

70 INPUT "LONGUEUR D'UN ENREGISTREMENT 
“3LR 

25 N$=N$+",D=1, "+STRSCLRI+", "+STRS CN) 
80 JCREATE N$ 


3Q ? 
100 TXXXXXKXKXKAKKXKEAXKEEKRKREXERARERKK 
119 ?’%X REMPLIR LE FICHIER X 


12Q XXXXXKXKKKEXKKERAREREXKAKKRNEX 
138 A$=CHRSC2) 

14Q FOR I=1 TO N 

158 LWRITE1,I’7A$ 

16Q NEXT I 

1/@ 2CLOSE] 

180 END 


NOM DÙ FICHIER ? AGENDAI 
NOMBRE MAXI D’ENREGISTREMENTS ? 18 
LONGUEUR MAXI D'UN ENREGISTREMENT ? 128 


La ligne 70 permet de fabriquer la chaîne N$ adéquate pour l'instruction 


create. 
130 : initialise A$ avec caractère nul (code ASC Il) 
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140 à 160 : écriture dans tout le fichier de A$. 

Maintenant, l'insertion d’un élément devient on ne peut plus simple. (pro- 
gramme insère) 

Commentaires : 

130-190 : Entrée des coordonnées d’une fiche 

200 : Entrée du numéro de fiche où seront affectées les données précé- 
dentes. 

240-270 : vérification que cette fiche est libre, on lit la 1"e rubrique de la 
fiche : si elle est vide A$ contient le caractère de code ASC II = 2, sielle est 
occupée A$ contient un nom. 


INSERE 

1 CLS 

10 ?XXXXXXXXXXXXXEKKKKKKKRERERKRIÈHRX 
28 ?X OUVERTURE DU FICHIER X 
30 7 XXKXXXX ANOKHEOHONOHHOHOKKKKKEHOHKIHHHHK 
40 . ? 


5Q 20PEN"AGENDA=1" 

68 NE=10:A$="" 

188? KXXKXK HONOR I OO I OO OO OX 
118 ’x INSERTION D'UN ELEMENT  *% 
129? X XX HORHHN OIIOOOR OOOOOOOOOEX 
13@ INPUT'NOM ‘“;N0O$ 

14Q INPUT"PRENOMS ‘“ ;PN$ 

159 INPUT'NUMERO DE RLE ";NRx 

168 INPLUT'ADRESSE “;AD$ 

129 INPUT"CODE POSTAL ";CP 

189 INPUT'UILLE "3UIS 

198 INPUT'NUMERO DE TELEPHONE ‘“;TES$ 
28@ INPUT “NUMERO D'ENREGISTREMENT ";EC 
210? XXI OI OO OO OX 


228 ?’X UERIFICATION * 
230 ?XXXXKKKKXEKEREXKAEKEERKIEKIHREIHK 
248 ? 


250 UTAKEI,EC’A$ 
260 IF A$CCHR$S(2) THEN GOTO 208 
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27Q@ 2WRITE1,EC’NO$,PNS, NR%, ADS$, CP,UIS,T 


ES$ 

28@ PRINT "UNE AUTRE INSERTION 

290 GET B$ 

300 IF RB$="QO"THEN GOTO 138 

310 ? 

320 ?XKXXKXKKKXXEAKKKKKXEXEXERXKKERERANK 
330 ?’X FERMETURE FICHIER X 
340? XXXXXEEXXANNEAONHONEANMKEKKENRIHHK 
350 ? 

368 2CLOSE1 

370 END 


Si la fiche est libre on écrit le nouvel enregistrement. Dans le cas 
contraire, un autre numéro de fiche est demandé sa validité est à nouveau 
vérifiée. 


Notons tout de suite une amélioration possible : si le numéro 
entré est supérieur au nombre total de fiches que peut contenir le fichier le 
DOS génèrera l’erreur END OF FILE est le programme se bloquera obli- 
geant l'opérateur à réentrer toutes les données. 


Pour palier à cet inconvénient, on peut rajouter la ligne 205 IF EC 
» NE THEN GOTO 200. 


5° - SUPPRESSION D’UN ENREGISTREMENT. 


Vous vous êtes fachés avec quelques relations, supprimez-les 
donc du fichier. La suppression d’un enregistrement revient ici à écrire un 
caractère de code ASCII = 2 dans la première rubrique ; ainsi lors de 
l'insertion d’un autre élément cet enregistrement sera évalué libre. Con- 
trairement aux fichiers à accès séquentiel qui demandent généralement la 
recopie totale du fichier, les fichiers à accès direct permettent les suppres- 
sions de façon simple et quasi instantanée. 


Commentaires : 
Les lignes 1 à 60 vous sont désormais familières. 
70 : initialisation de la variable A$ avec le caractère de code ASCII 2. 
130 : demande de numéro de l'enregistrement à effacer. 
140 : cette ligne est une sécurité au cas où l'opérateur aurait tapé un mau- 
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vais n° d'enregistrement. Dans ce cas un autre numéro est demandé. 
La fin du programme vous est aussi habituelle : (demande si un autre 
enregistrement doit être effacé, ferme le fichier). 


SLPPRES 

1 CLS 

10? KÉIINENNNRX 
28 **X OUVERTURE DU FICHIER x 
30? KHAN IOOIIEX 
26 

40 2OPEN"AGENDA=1" 

45-PRINT'FICHIER AGENDA" :PRINT :PRINT 
58 NE=18 

68 EC=1 

29 A$=CHRSC2) 

80 ? 

90? XXI ONENNNENNENX 
120 ’x SUPPRESSION x 
EURETT2222011222221122222201222 200 
120 ? 

138 INPUT "NUMERO D'ENREGISTREMENT À SU 
PPRIMER" ;EC 

148 PRINT CHR$(27);"AOK....7 (O/N)" 
150 GET B$ 

168 IF B$<>"O"AND B$Q"N" THEN GOTO 150 
178 IF B$C>"O" THEN GOTO 130 

180 JURITEI,EC'AS 

199 PRINT'UN AUTRE ? CO/N)" 

200 GET B$ 

210 IF B$="O" THEN GOTO130 
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230? XXXXX XX HON OK HO HO AO HOKONOKHOHIONIONK 


248 ’X FERMETURE DÙU FICHIER X 
250? KXXXKXXK XXE IOHOOKHONHOK AOKOHKOAHHOAHK 
260 ? 

27Q SCLOSET 

288 END 


EXEMPLE D’EXECUTION 


FICHIER AGENDA 
NUMERO D'ENREGISTREMENT À SUPPRIMER: 1 
OKsru PCOZNT. 10 
UN AUTRE ? (O/N) 


6° - La dernière opération importante sur un fichier à accès airect, est de 
pouvoir lister de façon séquentielle tous les enregistrements existants. Le 
programme présenté ci-dessous autorise cette opération. 


l 

Commentaires : 

130-140 : Notons ici l’utilisation de l'instruction ! WHERE 1 associée à 
peek (+ 48 F) qui met dans la variable NE le nombre total d'enregistrement 
du fichier. 

152-160 : on lit le premier champ de chaque enregistrement, s’il est égal à 
CHRS (2) alors on le saute, sinon c’est un enregistrement qui existe donc 
on peut lire les champs suivants ; remarquons que contrairement à un 
fichier séquentiel on relit la totalité de l'enregistrement (NO$ correspond 
alors à A$). 

170-210 : Impression des résultats sur l'imprimante. 

280 : Fermeture du fichier. 


LISTESEQ 
1 CLS 
10 XKKXXKKXXKAKAKKXEXEERERÉRIEREKHKAAHK 
28 ?’X OUVERTURE DU: FICHIER X 
30 ?XXXXKKKKXXEKEXXEKENNHNNXKAKAKAAHK 
35 ? 


4Q SOPEN"AGENDA=1" 
45 PRINT'FICHIER AGENDA" :PRINT PRINT 
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50 NO$="" :PR$="" INRY=Q 1 ADS="" :CP=QIUIS= 
"sTES="" 

60 EC=1 

78 AS=CHRS (2) 

80 ? 

90 7 KHRIERMENENNNEMMENIERE 
120 x LISTE SEQUENTIELLE * 
110? XXIOEEREENENIENENERR 
120 ? 

130 SUHERE! 

140 NE=PEEKCH48F) 

150 FOR I=1 TO NE 

152 2TAKEL, l'AS 

155 IF A$=CHR$(2) THEN GOTO 228 

160 2TAKE1, L’NOS,PRS, NR%, ADS, CP, UIS$, TES 
178 LPRINT'ENREGISTREMENT NUMERO "31 


180 LPRINT NOS;" SPR$ 

190 LPRINT NRX;* ";ADS$ 

208 LPRINT CP;" M";UIS$ 

219 LPRINT TE$ 

228 NEXT I 

230 ? 

240 7 XXKXXXXXXNYRENONONONONHOKHOK KO KIOKHOHOHK 
250 ?’X FERMETURE * 


268 ?XXXXXXXKXKXEAKAKKKKKXEXERXKIKEKANHNK 
270 ? . 

288 CLOSE! 

298 END 


ENREGISTREMENT NUMERO 1 
DUPONT LUC 
24 RUE DES SALINS 
13004 MARSEILLE 
91 74 34 23 
ENREGISTREMENT NUMERO 2 
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ANETON ALAIN 
19 AVENUE JAUNE 
12000 LE LUC 
23 45 67 43 
ENREGISTREMENT NUMERO 8 
SARTIN PIERRE 
96 AVENUE DE TOULON 
83000 TOULON 
34 23 12 


7° - RECHERCHE D’UN ENREGISTREMENT 
PAR L’INTERMEDIAIRE D'UN NOM 


Nous allons voir que cette méthode est guère différente de la liste 
séquentielle. Avec cette méthode on ne distingue plus très bien l'intérêt du 
fichier à accès direct, nous verrons plus loin qu'il existe heureusement 
d’autres méthodes qui rendent l’utilisation d’un fichier direct plus optimale. 


Pour l'instant, intéressons-nous au programme, la ligne 130 
attend l'entrée d’un nom ; 
ensuite lignes 170-180-190. On prend le premier champ de chaque enre- 
gistrement, il est comparé au mot-clé contenu dans CL$, s'ils sont diffé- 
rents on lit l'enregistrement suivant sinon un indicateur est mis = 1 (195), 
l'enregistrement est lu en entier (190) et imprimé. 


250 : en sortant de la boucle on teste l'indicateur ; s’il est à 1 le 
nom cherché existe dans le fichier il a été imprimé, s’il est à zéro le nom 
cherché n'existe pas on imprime NOM INCONNU. 


RECSEQCL 
1 CES 
19 ?XXKXXXKKKXKEKKEXEXERKXKXKKEEKKXKEXEKKXK 
28 ?’X OUVERTURE DU FICHIER X 
30 XXXXKKKKKEKEKYEERERKERIIRHAERHHKK 
35. ? 


4Q YOPEN"AGENDA=1 * 
45 PRINT'FICHIER AGENDA“ :PRINT :PRINT 
5Q NO$="":PN$="" INR4=D :ADS="" :CP=Q :UIS= 
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“out :TES=" ie 
60 INDIC=Q 
20 A$=" #1 


80 ? 
30 ? 


120 
110 
120 
130 
140 
150 
160 
170 
180 
190 
195 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


PT 22111111114111122022222222000 
*Xk RECHERCHE PAR CLE x 
ŒTTITTII111111122222222245212000 

D 

INPUT"QUEL NOM “;CLS 

QUHERE 1 

NE=PEEKC#48F ) 

FOR I=1 TO NE 

2TAKE1, l'AS 

IF A$OCLS$S THEN GOTO 240 

2 TAKE 1; L'NOS$S,PNS,NR4, ADS, CP,UIS,TES 
INDIC=1 

PRINT NO$ ;" "3 PNS 

PRINT NR4;" "3;ADS 

PRINTCP;" ";UIS 

PRINTTES 

NEXT I 

IF INDIC@1 THEN PRINT "NOM INCONNU 


3 


2 KR XX OMR OEX 
x FERMETURE x 
2 RO OX 
3 

2CLOSE1 

END 
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8° - Maintenant que toutes les routines de base ont été décrites, nous 
allons donner un programme de synthèse du répertoire d'adresses. Défi- 
nissons en les buts : ce programme doit permettre de : 

- créer un fichier, 

- de le mettre à jour (insertion et suppression de fiche) à partir d’un numéro 
de fiche, 

- de lire une fiche à partir d'un numéro, d’un nom, d’un prénom, 

- d'éditer la totalité du fichier. 


Ce programme a été développé dans plusieurs buts : 
- la rapidité d'exécution n’a pas été recherchée, au profit de la clarté du 
programme, 
- le programme est aussi structuré que possible, 
- il donne un exemple de masque de saisie données, 
- il fait la synthèse des diverses opérations déjà vues sur les fichiers à 
accès direct. 


Il'est écrit pour l'atmos ; il fonctionne pour ORIC 1 à condition de 
simuler PRINT aX,Y;«»; 


Par exemple toutes les instructions PRINT a sont remplacées 
par la ligne X = .. : Y =. : A$ = «...» : GOSUB 16000 
16000 POKE 616, Y 
16010 PRINT 
16020 POKE 617, X 
16030 PRINT A$; 
16040 RETURN. 


Commentaires sur le programme : voir après le listing. 


130. 


AGENDA 


18 CLS 

20 NOS="MiPNS= "ADS = NM SUISSE; TES 
30 PRINTO6,14; "SORTIE SUR IMPRIMANTE 0/ 
N? -"3;CHRS (8) ; 

48 GET À$ 

SG IF A$="N" THEN IM=G:POKE 48920, 32 

68 IF A$="0" THEN IM=1:POKE 48220,73 

78 CLS 

80 ? 

98 ? KXXXKXKKX 

120 ’X MENU X 

110 ?KKXKKKEX 

120 ? 

130 PRINT'CREER UN FICHIER = CRE‘ 

149 PRINT'INSERER LNE FICHE = INS" 

158 PRINT'EFFACER UNE FICHE = EFF" 

168 PRINT'LIRE FICHE À PARTIR D'UN NME 
RO = LNU 

120 PRINT'LIRE FICHE A PARTIR D'UN NON 
= LNO" 

188 PRINT'LIRE FICHE À PARTIR D'UN PREN 
OM = LPR" 

198 PRINT'EDITION TOTALE DU FICHIER =ED 
pu 

200 PRINT'FIN = FIN" 

218 PRINT@19,15;"---":PRINTR19,15;""; 
220 A=3:B$="":GOSUR 3160 

230 IF LEN(B$)=3 THEN GOTO 250 

248 PING:GQTO 210 

250 IF B$-"CRE" THEN GOSUB 370 

268 IF B$:"INS" THEN GOSUB 580 

27@ IF B$="EFF" THEN GOSUB 920 

288 IF B$="LNU" THEN GOSUB 1280 

290 IF B$="LNO" THEN GOSUB 1550 
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IF B$="LPR" THEN GOSUB 1780 
IF B$="EDI" THEN GOSUB 2810 

IF B$="FIN" THEN POKE 48020, 32:END 
GOTO 78 

MTT2211111122111112211112 

X CREATION D'UN FICHIER * 

2 HRK MONO ERX 

1 

CLS :PRINT :PRINT :PRINT :PRINT 

INPUT "NOM DL FICHIER ";B$ 

IF B$="" THEN RETURN 

PRINT :PRIN® 

INPUT'NOMBRE MAXI D’ENREGISTREMENTS 


PRINT :PRINT 
N$=B$+",D=1,128, "+STRS$(N) 
SCREATE N$ 

GOSUB 3710 

AS=CHRS (2) 

FOR I=1 TON 
WRITEI, I A$,A$ 

NEXT I 

GOSUB 3580 

RE TURN 

3 

D XXXXKKHONONOKOKOHOKOHOHOHOHOHOHHK 
?X INSÉRER UNE FICHE % 
2 XXOKONONONONOKKOHOÏOHOKONKORHOUHK 


3 


GOSUB 3600 


.IF PB=1 THEN RETURN 


GOSUB 2138 

CLS 

IF NO$="" THEN GOTO 798 
PRINT@?,18;"NUMERO D?’ ENREGISTREMENT 


64Q PRINT@18,17;"Q = LE PREMIER LIBRE" 
65@ PRINT@32,1@;""; 

668 A=5:B$="":6G0SUB3160 

67@ IF ER=1 THEN GOTO 638 

68@ EC=VAL(B$) 

690 IF EC<Q THEN GOTO 630 

708 IF EC=@ THEN GOTO 830 

718 GOSUB 3378 

220 IF LI=Q THEN GOTO ?76@ 

73@ PRINTO8, 14 ;CHR$#(27) ; "LENREGISTREMEN 
T OCCUPE" 

24@ WAIT200 

25@ GOTO 610 

760 29WURITEI,EC’NO$,PNS$S,NR%,ADS,CP,UIS,T 
ES$ 

77@ GOTO 580 

280 ? 

290 GOSUB 3508 

80Q RETURN 

810 ? 

82@ ? 

830 9WHERE 1 

84@ N=PEEKCH4BF ) 

850 FOR I=1 TO N 

86@ 2TAKE1, l'AS 

870 IF A$OCHRS(2) THEN GOTO 898 

880 EC=I:I=Nt] 

89@ NEXT I 

908 2WRITE1,EC’NO$, PN$, NRX, ADS, CP, UIS,T 
E$ 

91@ GOTO 600 

920 ? 

930? XX XKHOK HIHI IONUK 

949 ’Xx EFFACER UNE FICHE * 

95@ _? XX XX HONOR X 

960 ? 


133 


134 


370 GOSiIB 3600 
980 IF PB=1 THEN RETLIRN 
338 CLS 


3930 


1219 
1220 
1230 
1240 
1250 
1250 
1270 
1280 
1290 


PRINT@/,10; ‘NUMERO D’ENREGISTREMEN 


PRINT@11,1/;"9 = RETOUR AU MENU" 
PRINTe32,10;""; 
A=S:B$="":GOSUB 3160 

IF ER=1 THEN GOTC 1008 
EC=UA(BS$) 

IF EC<Q THEN GOTO1200 
IF EC=Q THEN GOTO 1210 
CWHERE 

NE=PEEKCH48F ) 

IF EC>NE THEN GOTO 1000 
EF$=CHR$(2) 


} GOSUE - 3890 


CLS 
PRINT@S3, 14; CONFIRMATION (OD/N) 7 — 


PRINT@30,14;"°; 

GET A$ 

PRINTAS ; 

IF A$="0" THEN JWRITEI1,EC’EFS,EFS 
IF A$="N" THEN GOTO 99@ 

IF A$<>"0" THEN GOTO 114@ ELSE GOT 


GOSÜUB 3590 

RE TURN 

) 

XXKKXKHHYOHOHOH AH KHHOHOHHAKKKK 

7X LIRE FICHE AUEC NUMERO %* 

2 KXX XX YORK KOKOK OK KOXOK HO KCKACHOK 

) 

CLS 

PRINT@4,13;"NOM DÙ FICHIER À OÙUURI 


RE semer 

1300 PRINTe@29,13;""; 

13:80 GOSCB 3630 

1328 ir PB=i THEN RETURN 

1339 CLS 

1348 PRINT@?,18; ' NÜMERO D'ENREGISTREMEN 


1350 PRINTa11,1/;"@ = RETOUR Ai MENI!" 

136Q PRINT@32,10;""; 

1370 A=S:B$="":GOSÛB 3168 

138Q IF ER=1 THEN GOTO 134@ 

1398 EC=UAL(BS) 

1400 ïiF EC<Q THEN GOTO 1340 

1410 IF EC-=Q THEN GOTO 1480 

142Q WHERE] 

1439 IF ECDPEEKCHA8SF) THEN GOTO 1348 

1440 GOSUB 3890 

1450 GOTO 1330 

1460 ? 

1470 ? 

1480 GÜSLB 3590 

1490 RETURN 

1500 ? 

1510 ?XXXXXXXXXAXXXEXERERHRAXK 

1529 ?X LIRE FICHE AUEC NOM *X 

1530 me7220222%22222%022%2%%: 

1540 ? 

1558 Cis 

1560 PRINT@4,13;"'NOM OÙ FICHIER À OUURI 
R:i -------. 

1570 PRINTG29,13;""; 

1580 GOSUS 3630 

1590 IF PB=1 THEN RETURN 

1680 CLS 

1619 PRINT@I2,14; "NOM: ----------" 

1629 PRINT@1/,14;""; 
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1630 A=10:B$="":GOSUB 3168 

1648 IF ER=1 THEN GOTO 1618 

1658 IF B$="" THEN GOTO 1710 
1668 CL$-B$ 

1670 GOSUB 4328 

1688 GOTO 1690 

1698 ? 

1708 ? 

1712 GOSUB 3500 

1728 RETURN 

1730 ? 

1240? XX X ER HIONOIROOOOIOOICE 
1250 ?’X LISTE FICHE PAR PRENOM * 
1268? XHXK AH HO HOIUHK HO HR HO IIOOICE 
1728 ? 

1288 CLS 

1799 PRINT4,13; NOM DU FICHIER À OUURI 
1888 PRINT229,13;""; 

1812 GOSi]B 3630 

1820 IF PB=1 THEN RETIRN 

183@ CisS 

1849 PRINT@12,143; "PRENOM: --------- =" 
1850 PRINT@20,1i4;""; 


1860 A-i0:8$-"":G0SLB 3160 
i8/Q ÏF ER=I THEN GOTO 1840 
1880 IF B$="" THEN GOTO 1940 
1894 CL$=B$ 


1300 GOSCB 4460 

1919 GOTC 1830 

1920 ? 

1938 ? 

1934Q GOSUB 33500 

1958 RETURN 

1960 ? 

137@0 7 XXXXXXXANNONHOKHOKOHOKKOHOHOHHOHOKKCKOIOHK 


1980 ‘x LISTE COMPLETE Di FICHIER 
19390 ?XXXXXXKXKAXXEXKKXXKEKAXKEREKAAK 
20U0 ? 

2818 Cis 

2020 PRINTaä,13:"NOM DU FICHIER 4 OiURI 
R : Detroit 

283Q FRINTO23,:3;'"; 

2904 GNS'IB 3630 

2Q50 ÏF PB=1 THEN RETURN 

2067 SUHERE 

207@ ME=PEEKCH&8SF) 

2080 FÜR EC=ITO NE 

2098 TAKEI,EC?NOS$ 

2100 IF NOS<>CHRS$S(2) THEN GOSUB 3890 
2118 NEXT EC 

212Q GOSUB 3506 

2130 RETURN 

2140 ? 

2150 ?XXXXXXKXXKKAXERXAKERHKK 

2169 ?’Xx SAISIE OD'UNE FICHE X 

2179 ?XXXXXXXKXXXKXXXXXXKAXXK 

2180 ? 

21938 CLS 

2208 PRINTCHR#(C12) 

2218 PRINT@7,2; "NOM: ---------- PRENOM 


222@ PRINT@I#,6: "NUMERO DE RUE: ---" 
2230 PRINT@ID, IW3 RUE: =... 


2AQ PR INTBlSS TA S Fenssssssneeneenses 


2258 PRINT@I12,16;' CODE POSTAL: ----- " 
2268 PRINT@6,28;'UILLE: --------------- 


227@ PRINT@3,24;"NUMERO DE TELEPHONE: - 


[E 
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2280 PRINT CHR$(1/):PRINTO/,2;"°; 
2298 A=]j2:B$="":G0S:1IB 3160 

2306 FRINT CHR$(17) 

2310 IF ER=9Q 1HEN GOTO 235@ 

232@ PRINTG2,2; NOM: ---------- É 
2330 PING 

2348 GOTO 2280 

2350 NO$=BS$ 

2360 PRINTEHR#L17) 


2370 IF Nug$="" THEN RETURN 
238@ PRINTCHR$(1/) 
23930 ? 


2408 PRINT CHR$(17): PRINTO2?7,2;""; 
2418 n=i9:3$="":GOSUB 3160 

2429 PRINT CHR$(I7) 

24304 -ER=G: THEN. GOT 2479 

2449 PRINT819,2; "PRENOM: =. " 
2459 PING 

2468 G0TO 2400 

2479 PN$=BS$ 

2480 ? 

2490 PRINT CHR$TI/):PRINTE2S,6; ""; 
2500 A=S:BR$="":GOSUB 3160 

2518 PRINT CHR$(127) 

252@ IF ER=U THEN G979 2560 

253@ FRiN:0:0,6, NUMERD DE RE: ----- 
2548 PiNG 

2556 G5TO 2490 

2560 NRX=UALCBS) 

2570 IF NRX<=Q THEN GOTO 2534 

2580 ? 

2590 PRINT CHR$CI/3J:PRINTO1S,12;""; 
2600 A=24:B$="":G0OSUS 3160 

2610 IF AS$=CHRS$S(I3) THEN GOTO 2700 
2528 PRINTAS;:594-59$+A9# 

2638 PRINT CHRSCI7) 


i + 
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Zn PRINT CHRSC12):PRINT@i5,123;"" 3:25 
J'Q0;:3 3160 

25sû IF ER=Q THEN GOTO 2700 

2659 PRINTCHR$S(12):PRINT@10,1Q;"RUE: -- 


2680 PING 

269Q GOTO 2590 

2/00 AD$=BS$:PRINT CHR$C1/à 

2718 ? 

2728 PRINTEHR$S(17/):PRINT@25,16; *; 
2730 ÀA=5:8$-"":GOSUB 3150 

2/4Q PRINTCHR$(17) 

2/59 [IF ER=9 THEN GOTO 2800 

2/64 PRINT 

2/78 PRINT@12,16; CODE POSTAL: -----" 
2/88 FING 

2738 GOTC 2720 

2808 CP=UAL(BS) 

281@ IF CP<I OR LENCB#$J OS THEN PING:G0 
TO 2770 

2820 ? 

2830 PRINT CHR$C(I/):PRINT@Ii3,20; * ; 
2840 A=20:B$-="":GOSÛB 3:60 

285@ PRINT CHR$(17) 

286Q iF ER=Q THEN GOTO 2910 

2878 PRINT 

2880 PRINT@6,20;'UILLE: --------------- 


2832 PING 

230@ GOTO 2830 

2310 VIS-BS$ 

2320 ? 

293A PRINTCHRS(1/):PRINTE?24,24;"";:TE$="" 
29482 FOR I::1 T9 5 
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295@ A=iji:B$="":GOSUB 3168 

2369 PRINTAS;" *; 

2970 TES=TES+B$+A$+" ” 

2988 NEXT I 

29938 PRINTCHRSCI2) 

300@ IF LENCTE$)=15 THEN GOTO 3050 

3018 PRINT 

302@ PRINT@3, 24; ‘NUMERO DE TELEPHONE: - 


3030 PING:TES$="" 

3048 GOTU 2930 

3057 FRINT CHR$(17):PRINT@15, 25; "FICHE 
OK..7 -";:PRINT CHR$(CS8) ; 

3060 GET A$ 

3070 PRINT@2?,25;A$; 

3080 iF A$="N"' THEN GOTO 2190 

3990 IF A$="0" THEN RETURN 

3100 PRINT CHRS$(8) ; :GOT03060 

3110 ? 

3120? XX XANAX 

3138 ’X SAISIE DE CARACTERES *x 

3140 ?XKXKXKXKXKXKXKKKKKKKKKEKXKKKKERKX 

3150 ? 

3160 GET A$ 

3170 ÏiF A$=CHR$(16) THEN GOTO 3290 

3180 IF LENCB$)=A AND A$OCHRS(13) AND 
A$CDCHR$C127) THEN GOTO 3250 

3190 IF AS=CHR$(13) THEN GOTO 3270 

3200 IF A$CCHR$SC12/) THEN GOTO 3230 

3210 IF LEN(B$)>Q THEN B$=LEFT$(B$, LENC 
B$)-1):PRINT CHR$CB)J;'"'-";CHRSCB) ; 

3220 GOTO 3160 

3230 B$=B$+A$:PRINT A$; 

3240 GOTO 3168 

3250 ER=1 

3260 RETURN 


3270 
3280 
32930 
M=Q 7 


ER=8 
RETURN 


IF PEEK(48020)=32 THEN IM=1 ELSE 


r 


L 


330@ IF PEEK(482029)=32 THEN POKE 48020, 
73 ELSE POKE 48926, 32 


3310 
3320 
3330 
3342 
3350 
3360 
3320 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3459 
3460 
3428 
3480 
3490 
3580 
3510 
3520 
3530 
3540 
3550 
3560 
3520 
3580 
3538 
3680 


GOTG316a 


J 


2 XX XX XOAOKKOKK HO HO HOKHOKHOHOKHOKHOHCHOK 
7x VERIFICATION ENR. LIBRE 
m2222922296222222252222999 2 


) 

[WHERE i 

N=PÉEKCHA4SE 3 

ÎF ECDN+]I THEN GOTO 3430 
2TAKEï,EC'AS 


IF A$SCCHR$S(2) THEN &LI=1 EiSE LI=0 


RETURN 

Rte 

RETL!RN 

Le 

2 XX KO OR AOC OK 
’X FERMETURE Di FICHIER * 
2 XOXOKOH HN HN HO ORNE OO OK 
1 

gCLOSE1 

FÜR I=i TO 8 
POKE48008+I,32 

NEXT I 

RETURN 

)) 

2 X HOKOHN HONOR HN 
*X OUVERTURE DU FICHIER X 
LRRERAAAEIARAR ARE ARRIOEION 


) 


CLS 
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361@ PRINT@3,13;"NONM Di! FICHIER À MODIF 
TER: -------- Es 

3628 PRINTO34,13;""; 

3630 A-8:B$="":GOSLB 3160 

364Q IF ER=1 THEN GOTO 361ü 

3650 IF B$="" THEN PB=1:RETURN 

3652 N$=B$+"=1" 

3576 2ERSET 

368Q SOPEN N$ 

3690 2ERR SJ10 3760 

32@@ 2EROFF 

321@ FORI=1TOLEN(CBS) 

322Q PCKE 4890G+I,ASC(MID$(BS$,1,1)) 
373A NEXT I 

324R PB=@ 

3754 RETURN 

3760 IF PEEK(H#489)<>7 THEN GOTC 3810 
3728 CisS 

3780 FRINT@11,14; FICHIER INEXISTANT'; 
3290 WAIT289 

3800 r5=1:RETURN 

38i2 GOSUB 3590 

3820 FB=1 

3832 RETURN 

3840 ? 

3850? XXHXK HO OO HONOR AO 

3860 ’*X EUITION D'UNE FICHE * 

3870? XX XX XAHHH KI KOKIK AIO HOHIOK 

3880 ? 

3890 CLS 

3900 2ERSET 

3910 2TAKEÏ,EC'NOS,PNS, NRZ. ADS, CP,UIS,T 


392 LERR GOT0 4200 
3338 2EROFF 
3940 PRINT35,9;EC 
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3950 
3360 
397G 
3980 


3330 


PRINT@2,2,"NONM: * ;NO$ 

FRINT@19,2; "PRENOM: ";PNS# 
FRINT@i0,6; NUMERO DE RUE: "3;NR% 
IF LENCAD$S)<=25 THEN AH$=ADS$S :AB$=" 


IF LENCADS$)225 THEN AH$=LEFTS$CADS, 


25) :AB$=MID$SCADS, 26) 


4000 
4819 
4020 
4930 
4840 
TES 
4050 
4050 
4870 


PRINT@19,19;"RUE: *;AH$ 
PRINT@15,12;AB$ 

PRINT@12,16; "CODE POSTAL: ";CP 
PRINT@AG,20;"'UILLE: “;UIS 
FRINT@3,24; "NUMERO DE TELEPHONE: 


WAIT 200 
IF KEY$="" THEN GOTO 4290 
PRINT@3,25;"PRESSEZ UNE TOUCHE POU 


R CONTINUER" 


4080 
4030 
4180 
4110 
4120 
R4 
413@ 
4140 
41:50 
4160 
4170 


GET A$ 

IF IM=Q THEN GOTO 4139 

LPRINT TABC2)3"NOM: “3, NOS$ ; 

LPRINT TAB(C13)J;"PRENOM: * ;PN$ 
LPRINT TABC10);"NUMERC DE RUE: “3N 


LPRINT TAB(CI18);"RLE: ";AH$ 

LPRINT TABCI135):AB$ 

LPRINT TABC12);"CODE POSTAL: “;CP 
LPRINT TABCGJI;"UILLE: "jUIS 

LPRINT TABC3); "NUMERO DE TELEPHONE 


"3TES 


4180 
4190 
4200 
4210 
4220 


4230 


LPRINT'LPRINT 

RE TURN 

IF PEEKCH489)<>316 THEN STOP 

CLS 

PRINT@10,14;"ENREGISTREMENT LIBRE" 


WAIT 200 
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4248 RETURN 

4258 ? 

4269? XKKXK EXAMINE 
4279 ’Xx LECTURE DU FICHIER PAR CLE x 
4280? KXHX IR IR IN IR II OI OK 
4290 ? 

4300 JUHERE1 

4319 N=PEEKCHA48F) 

4320 FOR !:1 TO N 

433Q LIAKE1,1°A$ 

4340 IF AS=CHR$S(2) THEN GOTO 4382 
435Q EC=I 

4360 IF A$=CLE$ THEN GOSUB 3890 ELSE G 
OTO 438@ 

4329 Fi=1 

4380 NEXT.I 

439@ CLS 

44@@ IF FL=1 GOTO 4448 

4419 PRINT@G6,14;'LE NOM “;CL$;" N’'EXIST 
E PAS" 

4420 PRINT@18,15;"DANS CE FICHIER" 
4430 WAIT 508 

444 Fi=@ 

445Q RETURN 

446Q 9WHERE 1 

4479 N=PEEKCH48F ) 

448@ FOR I=1 TO N 

449 2TAKE1, L'NO$,PNS 

4508 IF NO$=CHR$(2) THEN GOTO 4548 
4510 EC=I 

452Q IF PNS=CLES THEN GOSUB 3890 ELSE 
GOTO 4540 

453@ Fi=1 

454 NEXT I 

4558 CLS 

4560 IF FL=1 GOTO 4600 


4570 PRINT@6,14;'LE PRENOM ” ;CL$;" N’EX 
ISTE PAS" 

4580 PRINT@1G,165"DANS CE FICHIER" 

4590 WAIT 508 

4600 FL=G 

461 RETURN 


Exemple d'exécution : Edition d’une fiche. 


NOM : DUPONT PRENOM: MICHEL 
NUMERO DE RUE: 43 
RUE : AVENUE DES PLATANES: 
RESIDENCE BELLE UUE 
CODE POSTAL: 13850 
VILLE: MARSEILLE 
NUMERO DE ‘TELEPHONE : 16 9j 23 56 48 


NOM: RACINE PRENOM: ALFRED 
NUMERO DE RUE: 581 
RUE : BOULEUARD ST GERMAIN 


CODE POSTAL: 75034 
VILLE: PARIS 
NUMERO DE TELEPHONE: 16 17 32 45 32 


Commentaires : 


LIGNES 10-70 : Initialisation des variables alphanumériques uti- 
lisées pour l'accès aux informations du fichier. 


Demande de copie sur imprimante : chaque édition de fiche à 
l'écran sera répercutée sur l'imprimante. 


LIGNES 100-330 : affichage du menu, attente de la réponse de 
l'utilisateur : si elle correspond à une option, celle-ci est exécutée, sinon le 
menu est reproposé avec obstination. 
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NOM: AZERTY---- PRENOM: PIERRE---- 


NUMERO DE RUE: 16-—-—-— 


CODE POSTAL: 13245 


VILLE: MARSEILLE 


NUMERO DE TELEPHONE: 16 24 35 67 4m 


TELEFON 


NUMERO D'ENREGISTREMENT: 5675- 


8 = LE PREMIER LIBRE 
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LIGNES 350-520 : Option création d'un fichier. 


On peut ainsi créer plusieurs fichiers d'adresses (adresses per- 
sonnelles, adresses professionnelles, etc...). 


Si aucun nom de fichier n’est donné au moment de l'appui sur 
RETURN on retourne au menu. 


Dès que le fichier est créé, il est initialisé ; on écrit séquentielle- 
ment le code ASCII 2 dans la 1"e zone de chacun des enregistrements. 


LIGNES 550-920 : option création d'une nouvelle fiche. 


Ilest d’abord demandé sur quel fichier on veut travailler ce fichier 
est alors ouvert. Ensuite un masque de saisie est affiché à l'écran, il per- 
met de remplir commodément la fiche. Ensuite, deux possibilités sont 
offertes donner un numéro d'enregistrement ou placer la fiche dans le pre- 
mier enregistrement libre. Dans le premier cas avant d'enregistrer la fiche, 
on vérifie que cet emplacement est libre. 


LIGNES 940-1220 : Effacement d’une fiche. 
Les préliminaires sont identiques à ceux de l'option précédante. 


Ensüite, le numéro de la fiche à effacer est demandé. Comme 
c'est une opération importante, le contenu de la fiche est présenté sur 
l'écran (pendant 5 sec, mais ce temps peut être prolongé en appuyant sur 
une touche) ensuite une confirmation est demandée avant que la fiche ne 
soit effacée définitivement. 


LIGNES 1250-1500 : Option lecture d’une fiche d'après son 
numéro d'enregistrement. 


Le nom du fichier où prendre la fiche est demandé, puis le 
numéro de la fiche à éditer. Si le numéro donné est 9 on retourne au menu. 
Des contrôles sont effectués par sécurité (numéros de fiche négatifs où à 
l'extérieur du domaine du fichier). 


LIGNES 1520-1750 : option lecture d'une fiche avec un nom 
comme clé. 


Après l'ouverture de rigueur, c'est évidemment un nom qui est 
demandé. Ensuite la totalité du fichier est lue, chaque fois que NOS et CL$ 
correspondent la fiche est éditée. Si le nom n'existe pas un message 
d'erreur est produit, puis un autre nom est demandé. Un nom vide renvoie 
au menu. 


LIGNES 1750-1960 : Option lecture par prénom. Le principe est 
similaire à l’option LNO ; c'est un prénom qui est demandé. 
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LIGNES 1970-2130 : Option liste complète du fichier. 


Toutes les fiches non vides sont éditées grâce à cette option. Elle 
permet de faire périodiquement le point sur l’état du fichier. 


LIGNES 2160-3130 : Masque de saisie. 


Dans la pratique, presque tous les programmes interactifs utili- 
sant des fichiers ont recours au masque de saisie, car il libère l’utilisateur 
des contraintes de longueur des enregistrements en lui signalant toute 
erreur ; il permet une bonne présentation par sa structure plein écran. 

Pour un programme d'utilisation professionnelle il ne faut pas hésiter à le 
soigner, c'est lui qui rend le travail agréable et sûr. 


Le masque défini pour ce programme contrôle la longueur de 
chaque constituant d'un enregistrement. Si un élément devient trop long il 
est totalement effacé, et son introduction est redemandée. On contrôle 
que le numéro de rue soit bien numérique, que le code postal sait un nom- 
bre à 5 chiffres. Toute erreur est signalée par un PING de façon à bien atti- 
rer l'attention. 


LIGNES 3130-3320 : Saisie de caractères. 
Cette routine attend l'entrée de caractères au clavier. 


Si les touches CTRL et P sont appuyées simultanément on 
change le mode de l'imprimante si elle est ON, elle devient OFF et vice- 
versa. 


Si c'est la touche DEL qui est appuyée le dernier caractère est 
effacé. RETURN ou un mot trop long provoque le retour au programme 
appelant. 


LIGNES 3340-3450 : Vérification enregistrement libre. 


On vérifie que le premier champ de l'enregistrement EC contient 
bien le caractère de code 2. LI vaut alors ©, sinon il vaut 1. 


LIGNES 3470-3550 : Fermeture du fichier. 
Le fichier est refermé, son nom est effacé de la ligne des status. 
LIGNES 3570-3860 : Ouverture du fichier. 


Le nom du fichier est demandé, ensuite on contrôle si il existe 
bien sur la disquette. Dans ce cas, on écrit son nom sur la même ligne que 
CAPS (lignes des STATUS). 


LIGNES 3860-4250 : Edition d’une fiche. 
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Lecture de l'enregistrement de numéro EC, si cet enregistrement 
est libre la lecture provoque une ERREUR OUT OF DATA on contrôle ce 
cas à l’aide des instructions ! ERSET et ! ERR GOTO. Ensuite, la fiche est 
présentée sur l'écran pendant 2 sec. si on ne touche pas au clavier, sinon 
on attend l'appui sur une autre touche pour continuer. Si l'indicateur 
d'imprimante est armé la fiche est aussi éditée sur l'imprimante. 


LIGNES 3340-3450 : Vérification enregistrement. 


Le fichier est lu en entier, à la recherche de la clé CLS, si elle 
existe, l'enregistrement complet est édité, sinon on affiche le message. 


{ LE NOM 
PRENOM « TOTO » N'EXISTE PAS DANS CE FICHIER. 
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TRI 


Nous allons voir quelques algorithmes de tri parmi les plus sim- 
ples car ils sont très employés pour les fichiers. Classements par ordre 
alphabétique d’un fichier client ou d’un fichier d'adresse. Classement par 
ordre numérique d'un fichier de stock de pièces (ou des bouteilles de votre 
cave)... 


1° - TRI RIPPLE (RIPPLE SORT) 


Le principe consiste à comparer 2 éléments adjacents et à les 
inverser si le premier est supérieur au second. L’algorithme peut être le 
suivant : 

Début : Tri ripple 

indicateur = 1 

tant que indicateur = 1 
faire | = 1 : Indicateur = 0 
faire! = S 
répéter jusqu'à la fin de la table 

comparer élément | et élément | + 1 

si élément | > élément | + 1 faire 


Inverser élément | et élément | + 1 
Indicateur = 1 


finsi fait 


fait 
fin tri ripple 
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RIPPLE 


5 3 


10 
20 
30 
40 
45 
20 
60 
?7@ 
80 
930 
95 


XXKXXXXEXKEXKXXAEX 

7X TRI RIPPLE % 
DM922222222229%; 

I=N-1 

REPEAT 

INDIC=FALSE 

FOR J=1TOI 

IF ACJJ<=ACJ+1) THEN GOTO 930 
X=ACJJ:IACJ)I=ACIJ+1) :ACJ+1)=X 
INDIC=TRUE 

NEXT J 

f=T-1 


188 UNTIL INDIC=FALSE 


Ce programme permet de classer des nombres rangés au préa- 
lable dans A (), il faut aussi spécifier la valeur N = nombre d'éléments à 


classer. 


2° - TRI A BULLE (BUBBLE SORT) 


On compare le premier élément à tous les successeurs et on 
inverse les deux éléments si le second est plus petit que le premier. Ainsi à 
la fin de la première passe le plus petit élément est au sommet (il est 
remonté comme une bulle d’où le nom) on recommence pour le deuxième 
éléments. jusqu’au dernier. 


Algorithme : 


Début : Tri à bulle 
pour | = 1 à nombre d'éléments - 1 
faire pour J = | + 1 à nombre d'éléments 


faire comparer A (I) et A (J) 
. av » À (J) alors inverser A (1) et A (J) 
ns 


J=J+1 


fait 


1=1+1 
fait 
fin tri à bulle 
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BUBBLE 


1@ ?XXXXXXKXKKKKKEX 

2@ ?’X IRI À BULLE %* 

30 ?XXXXXXXXEAXEEKXXX 

4 ? 

5Q FOR I=1 TO N-1 

68 FOR J=I+1 TON 

78 IF ACID<=ACJ) THEN GOTO 120 
98 X=ACIJ:ACI)I=ACJIJ:ACJI=X 
190 NEXT J 

112 NEXT I 

128 ? 

130 END 


Les conditions d'exécution sont les mêmes que pour le tri RIP- 
PLE, 


Ces deux méthodes de tri sont les plus simples mais aussi les 
plus lentes car il faut environ n? comparaisons pour classer une table (ceci 
dépend de la distribution des éléments) ; néanmoins pour des tables de 
moins de 50 éléments ces deux tris ont un bon rapport complexité / temps 
d'exécution. Le premier est aussi intéressant pour des tables presque en 
ordre puisque il peut être arrêté par le test de l'indicateur. Les tris qui vont 
suivre sont plus performants et plus complexes. 


30 - TRI SHELL 


Le principe est le même que pour le tri RIPPLE, mais la méthode 
est accélérée par des pré-classements successifs plus rapides. 
Exemple d'exécution (voir listing programme). 


Soit à classer : 
Tri ripple 

10 8 7 6 5 1 1 

8 7 6 5 Î 5 5 

7 6 5 1 6 6 6 

6 5 1 7 7 7 7 

5 1 8 8 8 8 8 

Â 10 10 10 10 10 10 

Indic 1 1 1 1 1 0 
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Pour classer la liste il faut 6 tours de boucles qui comprennent 
chacun 5 comparaisons. 36 comparaisons au total. 


Tri shell 
au début Pas = 3J = | + 1 ; ensuite Pas = 1 J = 1 + 1 tri ripple normal 

10 6 5 L 1 

8 5 5 L 5 5 

7 1 1 6 6 6 

6 10 10 8 7 7 

5 8 8 7 8 8 

1 7 7 10 10 10 

Indice L 0 1 1 0 


Il ne faut que 5 tours de boucles pour classer la liste. Sur les 5 
tours 2 comprennent 3 comparaisons, 3 comprennent 5 comparaisons. 21 
comparaisons. ‘ 


Cette méthode est plus rapide car les petits éléments placés en 
fin de liste remontent plus vite qu'avec le tri RIPPLE ou à Bulle. 


SHELL 


18 ?XXXXXKXXXKXKKXEAKEKEARK 

29. *X, TRI. METHODE SHELL.*% 

38 ?XXXXKXKKKKEKXAKEXERKERHK 

a ? 

98 PAS=INT(N/2) 

6Q REPEAT 

?@ INDIC=FALSE 

80 FOR I= 1 TO N-PAS 

30 J=I+PAS 

100 IF ACIJ<=ACJ) THEN GOTO 130 
119 X=ACID:ACIDI=ACJJ) :ACJ)=X 
12@ INDIC=TRUE 

138 NEXT I 

140 IF INDIC=TRUE THEN GOTO ?7@ 
15Q PAS=INT(PAS/2) 

160 LNTIL PAS=8 

170 ? 


2° - TRI SHELL - METZNER 


Il s’agit d'une amélioration de rapidité du tri-shell. La méthode qui 
offre le meilleur rapport complexité” efficacité pour classer la liste précé- 
dante cet algorithme requiert seulement 12 comparaisons. 


Son principe : il débute: comme un tri shell, mais chaque fois que 
l’on permute deux éléments on regarde aussi si il faut le permuter avec les 
précédants ainsi on obtient un classement en peu de comparaisons. 


Exemple des permutations successives pour la liste 


19: 6: 6::467 5: 25: 1, 4 À À 1 A À 
80 “9 5 5: 6 - T 5.-641.5; &, 6:56: 5 
Ta Ie cd SOS 8: 6 6:65: 560 6-5: ,:6 
6. 10: 10: 10: 10° 19° 10 10. «6 8 8. 7 7 
5 5 8 8 8 8 8 8 10 10 7 8 8 
4 À 4 7 7 FO T° T-. 4. € 9.10 10 


Chaque colonne ne représente plus comme précédemment un 
tour de boucle mais une comparaison. 


SHMETÈèNE 


18 ?XXXXXKKXKXKXEKREXEKEXEEKKKEERK 
28 ?X TRI METHODE SHELL-MET2NER * 
30? XX KI HIN IN INIR IR HIER IOIOK 
4Q ? 

20 PAS=INTCN/2) 

6Q REPEAT 

78 J=1 

80 K=N-PAS 

90 L=yJ 

95 REPEAT 

100 M=L+PAS 

11Q IF ACLI<=ACM) THEN L=2:GOTO 140 
129 X=ACLJ:ACLI=ACN) :ACMI=X 

138 L=L-PAS 

14@ UNTIL L<«i 

159 J=J+1 
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160 IF J <=K THEN GOTO 30 
1/8 PAS=INT(PAS/2) 

180 UNTIL PAS=0 

1930 ? 


5° - TRI RAPIDE : QUICK SORT 


Il s’agit d’une méthode de tri assez évoluée mais très rapide 
(comme son nom l'indique). I! en existe plusieurs variantes plus ou moins 
sophistiquées ; nous avons choisi un algorithme performant avec choix du 
pivot. Cette méthode est assez lourde à mettre en œuvre et ne se justifie 
que pour des tris importants : + de 100 éléments. 


Commentaires : 

A () : table des nombres à trier 

PLE (,) : table pile (pile à 2 dimensions) 

PP : pointeur de pile ; il pointe vers les éléments du sommet de la pile. 
LP : longueur d’une partition, voir explication plus loin 

BAS : il pointe vers l'élément A (1) au début, puis sur le premier élément de 
la partition à trier. 

HAUT : il pointe vers l'élément A (256)* au début, puis sur le dernier élé- 
ment de la partition à trier “(pour une table de 256 éléments) 

PVOT : contient la valeur du pivot pour effectuer les comparaisons. 

MIL : il pointe vers le milieu de la partition à trier, au début milieu de la table 
N : nombre d'éléments à classer 

PB, PH : pointeur bas, pointeur haut ; ils permettent le classement des élé- 
ments autour du pivot. 


Le programme de tri commence réellement en ligne 110 ; les 
lignes 7-8 sont le sous-programme d'inversion de deux éléments il est 
placé en début de programme car l'accès y est ainsi plus rapide. 


10-50 : Ces instructions permettent de remplir une table avec des nombres 
aléatoires compris entre 0 et 999 ; ce sont les nombres qui vont être clas- 
sés. 


110-150 : choix du pivot. Le principe du tri consiste à répartir de part et 
d'autre d’un élément nommé pivot, tous les autres de telle sorte que les 
éléments plus petits soient sous le pivot, tandis que les plus grands seront 
au dessus. 
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QUICKSOR 


2-GOTO 10 
IE 7772211111112221111221111122222 
2 ?’X INITIALISATION TABLE NOMBRES * 
3? XXII RO 
4 
2 X=ACU) :ACU)=ACS) :ACSI=X 
8 RETURN 
u 

18 DIM A(256) 

28 FOR I=1 TO 256 

38 ACI)=INTCRNDC1)*1000) 

4Q NEXT I 

45 PRINT"'DEBUT TRI" 

50 ? 

51? KR IIARXX 

52 ’X INITIALISATION VARIABLES * 

53? XX XIII OK 

54 ? 

68 DIM PLECI,14) 

78 PP=0:LP=4 :BAS=1 :HAUT=256 

80 PUOT=0:MIL=0 :N=256 

90 ? 

CE T2211111111111112 

120. °*X CHOIX DU PIVOT * 

LIRE 2211111112111112 

102 ? 

119 MILÆINTCBAS+HAUT )/2 

128 IF ACBAS)D<ACMIL) THEN U=BAS :S=MILT : 
GOSUB ?:1=0 

130 IF ACHAUT)<ACBAS) THEN U=BAS :S=HAUT 
:GOSUB ?7:1=1 

140 IF I=1 AND ACBAS)D<ACMIL) THEN U=MIL 
:S=BAS :GOSUB 7 

150 ? 


(ue) 
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158 


151 
152 
153 
154 
160 
170 
180 
190 
200 
218 
220 
230 
240 
250 
260 
270 
280 
281 
282 
283 
284 
230 
298 
300 
310 
320 
330 
340 
350 
360 
370 
380 
395 
400 
410 


7 X XXX OK AOIOKOHHHOHOHOK HI IOIOIONIONK 
7%X CLASSEMENT DES ELEMENTS % 
2x AUTOUR DU PIUOT X 
D XX XX XXOAONNOK KR AOHONONONONHOKHOKAOHONONK 
PUOT=ACBAS) 

PB=BAS :PH=HAUT +1 

REPEAT 

PB=PB+1 

UNTIL ACPB)>=PUOT 

REPEAT 


-PH=PH-] 


UNTIL ACPH)<=PUOT 

IF PB>=PH THEN GOTO 270 
U=PB:S=PH:GOSÛUB 7 

GOTO 180 

U=BAS :S=PH:GOSÛUB 7? 

J 

TXXXX XX OAONONKKKIOHOHOHOHONHOHOHOÏHOHOHHK 
7% ORGANISATION DE LA PILE % 
TXXXXXXAONONK HRK OHOHOYOHKOHOHKKHOHHK 


3 


IF CPH-BAS)>CHAUT-PH) THEN GOTO 400 
3 

IF CPH-BAS)<=LP THEN GOTO 360 
PP=PP+1 

PLEC@,PP)=PH+1 

PLEC1;,PP)=HAUT 

HAUT=PH-1 

GOTO 118 

IF CHAUT-PH)<= LP THEN GOTO 500 
BAS=PH+1 

GOTO 118 

3 

IFCHAUT-PH)J<=LP THEN GOTO 468 
PP=PP+1 


420 
430 
440 
450 
460 
470 
480 
490 
491 

492 
493 
494 
500 
510 
520 
530 
540 
587 
589 
590 
591 

592 
600 
6a1- 
620 
630 
640 
650 
660 
678 
680 
685 
690 
691 


PLECO, PP)=BAS 
PLEC1,PP)=PH-1 
BAS=PH+1 

GOTO 110 

IF CPH-BAS)<=LP THEN GOTO 506 
HAUT=PH-1 

GOTO 110 

3 

? KA OERX 

* DEPILER * 

? RAOOOOERK 

3 

IF PP=Q THEN GOTO 600 
BAS=PLE (CO, PP) 
HAUT=PLEC1, PP) 
PP=PP-1 

GOTO 110 

3 
HT111111111111111112 
’X TRI FINAL RIPPLE % 
? HA OORX 
I=N-1 

PRINT"'DEBUT RIPPLE" 
REPEAT 

INDIC=FALSE 

FOR J=1 TO I 

IF ACJ)<=ACJ+1) THEN GOTO 680 
X=ACJJ :ACJ)=ACJ+1) :ACJ+1)=X 
INDIC=TRUE 

NEXT J 

I=1-1 

UNTIL INDIC=FALSE 


3 
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692 ?XKXXXXKXKKKEXEKKEEKIRKEEIKXX 

6933 ?* EDITION DES RESULTATS * 

6934 7 XXXXXXXAHAXEXHNNKANHOANHAXK 

6935 ? 

208 FOR I=1 TO N STEP 5 

71Q@ PRINTACID,ACI+1J,ACI+2),ACI+3),ACI+ 
4) 

?72@ NEXT I 

23@ END 


Pour un maximum d'efficacité, il faut que le pivot ait une valeur moyenne 
de telle sorte qu’on ait autant d'éléments au-dessus que au-dessous. Ici, le 
pivot est choisi parmi trois éléments : le premier de la partition, le dernier et 
l'élément milieu. Celui qui a la valeur intermédiaire est placé en début de 
table. 


160-270 : classement des éléments autour du pivot ; ceux qui sont plus 
petits que le pivot au-dessous, ceux qui sont plus grands au-dessus. 


290-490 : quand le tri précédant est terminé on se retrouve avec deux par- 
titions : les éléments plus petits que le pivot et les éléments plus grands 
que le pivot. Dans chacune des partitions on choisit un nouveau pivot eton 
effectue de nouveau le traitement. 


. Mais comme on ne peut traiter simultanément les 2 partitions il 
faut en choisir une et mémoriser les coordonnées de l’autre. On choisit de 
classer en premier la partition qui contient le moins d'éléments et de 
conserver les coordonnées de l’autre dans une pile : 

PLE {O,X) = Adresse du 1e' élément de la partition 
PLE (1,X) = Adresse du dernier élément de la partition. 


Chaque traitement autour du pivot conduit à deux nouvelles par- 
titions. On peut théoriquement aboutir à des partitions qui ne contien- 
draient qu'un seul élément ; mais on démontre alors que le tri perd son effi- 
cacité. Donc on décide que la partition sera considérée comme classée 
dès qu’elle aura une longueur inférieure ou égale à LP = 4. On terminera le 
tri avec une autre méthode : Ripple est bien adapté (table partiellement 
classée). 


500-5490 : quand une partition contient moins de 5 éléments, on cherche 
les coordonnées de celles précédemment mémorisées. 


600-690 : quand la pile est vide, il n’y a plus de partition à traiter, on finit le 
tri par la méthode tri-RIPPLE. 


160 


700-730 : Edition des résultats (attention dans ce programme elle termine 
Sur une erreur car on essaie de faire afficher A (257), A (258), À (259), A 
(260)] 


Exemple d'exécution commenté : 
Soit à classer : 
7,9,16,5,9,14,2,12,8,1,10,15,4,6,11,3 
Choix du pivot : BAS = 1 HAUT = 16 PVOT = 0 MIL = 8 


120 :A(1)«<A(8) OUI 12,9. 27.8: 2118 
130 :A(16)«A(1) OUI Dog. D 7B A 11,12 
140:1= 1etA(1)<A(7)4 79, 28,8, 11,12 
160:PVOT=7  PBAS=1  PH=17 

180,190,200 : PB = 2 A (2) » PVOT 

210,220,230 : PH = 16 A(16)> PVOT 

210,220,230 : PH = 15 A (15) > PVOT 

210,220,230 : PH = 14 A(14)<PVOT 


240,250,260 : # À (14) = A (2) et À (2) = A (14) 
6,16,5,9,14,2,8,8,1,10,15,4,9,11,12 

180 190 200 : PB = 3 A (3) > PVOT 
210 220 230 : PH = 13 A (13) <PVOT 
240-250-260 : ÿ À (13)SA (3) 


6,4,5,9,14,2,3,8,1,10,15,16,9,11,12 


180 190 200 : PB = 4 A(4) <PVOT 

180 190 200 : PB = 5 A (5) > PVOT 

210220 230 : PH = 12 A(12)> PVOT 

210220 230 : PH = 11 A(11)> PVOT 

210220 230 : PH = 10 A(10)<PVOT 

240-250-260 : À (10)$ A (5) _— 
>: inverser 

6,4,5,1,14,2,3,8,9,10,15,16,9,11,12 

180,190,200 : PB — 6 A (6) > PVOT 

210,220,230 : PH = 9 A (9) > PVOT 

210,220,230 : PH = 8 A (8) :PVOT 


240-250-260 : À (8)SA (6) 
[.]6.4.5.1.3.2.14,8,9,10,15,16,9,11,12 


180 190 200 : PB = 7 A(7) <PVOT 
180 190 200 : PB = 8 A (8) » PVOT 
210 220 230 : PH = 7 A(7)<PVOT 


240 PB>PH : À (1)SA (7) 
2,6,4,5,1,3[7.] 14,8,9,10,15,16,9,11,12 


ke om 
PH-BAS = 7-1=6 HAUT-PH = 16-7 = 


290 # :6 «9% 300 
300 :6> LP (LP = 4)#310:PP = 1 PLE (0,1) = 8PLE (1,1) = 16 
HAUT =6 
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Maintenant, on a mémorisé l'adresse début et de fin de la parti- 
tion la plus longue : elle commence au 8e élément et finie au 16° élément. 
On retourne en 110 ou on recommence avec BAS = 1 HAUT = 6 


CHoIx DU PIVOT :[3,]6,4,5,1,4[7.]14.8.9,10,15,16,9,11,12 
CLASSEMENT : 2,1[3.]5,6,4[7.] 14,8,9,10.15,16,9,11,12 


290 ÿ 300 : PH-BAS = 2 « LP = 4 ÿ 360 

290 $ 360 HAUT-PH = 3 « LP ÿ 500 

290 $ 500 :PP = 1#510 BAS=8  HAUT=16 PP-# 
On recommence mais on traite la 2e partition. 


CHOIX DU PIVOT : 2,1,3,5,6,4,7, 14, 8,9,10,12,16,9,11,15 
CLASSEMENT : 2,1,3,5,6,4,7,9,8,9,10,12,11, [14] 16,15 


290 :# PH-BAS = 6  HAUT-PH = 2 ÿ 400 
400 : 2 « LP # 460 
460 :6»LP HAUT = 13 


CHOIX DU PIVOT : 2,1,3,5,6,4,7,[9,18,9,10,12,11,14,16,15 
CLASSEMENT : 2,1,3,5,6,4,7, 9, 8,[9.]10,12,11,14,16,15 


290 :# PH-BAS = 2  HAUT-PH = 39 309 
300 : PH-BAS : LP # 360 
360 : HAUT-PH « LP # 500 
500 : PP = 0 # 600 
On exécute le tri final puisque toutes les partitions ont une lon- 
gueur< 4 : 2,1 "8.5,64/7/9,8.91 10,12, 1,14,16,15 
le tri Ripple étant exécuté on affiche les résultats. Le classement est réa- 
lisé en 3 tours de boucle. 


Pour un tableau de 256 nombres aléatoires entiers à 3 chiffres, il 
faut en moyenne par cette méthode 1 mn 20 s. dont environ 40 s. pour le 
Quick sort et 40 s. pour le Tri Ripple, alors que le tri Ripple seul demande 
environ 20 mn. 


6° - TRIS ALPHANUMERIQUES : 


Le BASIC permet de comparer des chaînes de caractères ; il sait 
discerner entre deux chaînes qu'elle est la plus « petite » (comprendre 
celle qui commence par les lettres les plus faibles dans l'alphabet). Par 
exemple : ,«ARN», «ADN», «ANR», et «CTN» seront classées comme 
suit : «ADN», «ANR», «ARN», «CTN». 


Les algorithmes précédants restent entièrement valables pour 
les variables alphanumériques. (Des problèmes apparaîtront si minuscu- 
les et majuscules sont mélangées «W> est plus petit que «a»). A titre 
d'exemple les algorithmes RIPPLE et Bubble sont reproduits ci-après : 
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ARIPPLE 


55 
10 
20 
30 
40 
45 
20 
6Q 
70 
80 
930 
99 
100 


ABUB 


10 
20 
30 
40 
50 
6Q 
70 
30 
120 
118 
120 
138 


X XX XOHOHOHOONHKHOHK 

7X TRI RIPPLE X 
KXXXKKKKKKEKAX 

I=N-1 
REPEAT 

INDIC=FALSE 
FOR J=1TOI 

IF A$CJJ<=A$S(CJ+1) THEN GOTO 930 
A=ASCJ) ASCJJ=ASCJ+1) :ASCJ+1)=X 
INDIC=TRUE 
NEXT J 

ES 

UNTIL INDIC=FALSE 


BLE 


2 XI OERK 
’*X TRI À BULLE ALPHANUMERIQUE * 
HT1222112111122222211222222222 
ÿ 
FOR I=1 TO N-1 
FOR J=I+1 TO N 
IF A$SCID<=A$CJ) THEN GOTO 100 
KS=AS CID :ASCII=ASCJD :ASCJI=XS 
NEXT J 
NEXT I 


3 


END 
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FICHIERS A ACCES DIRECT 
PROGRAMMATION AVANCEE 


| - ACCES PAR CLE : 


Nous avons vu que l’on pouvait accéder à un enregistrement que 
si l'on connaissait son numéro logique. Malheureusement dans la plupart 
des cas ce numéro est inconnu ou mal pratique, et c'est par une clé (NOM, 
ADRESSE...) que l’on veut accéder à l'enregistrement. La première solu- 
tion (CF programme agenda) est de lire séquentiellement le fichier jusqu'à 
ce que la clé et l'enregistrement lu correspondent, mais alors on perd tous 
les avantages du fichier à accès direct. D’autres méthodes ont donc été 
développées. 


1° - La plus simple est l'accès indexé avec constitution d’index en début de 
travail. 


Au moment d'utiliser le fichier, on lit en séquence le champ clé et 
on forme une table d’index en mémoire centrale. Pour accéder à un enre- 
gistrement on cherche séquentiellement dans la table d'index jusqu'à ce 
que la clé et le contenu de la table d'index concordent, alors le rang donne 
le numéro d'enregistrement. Cette méthode est plus rapide car on effectue 
un seul accès au disque. Par contre, pour un fichier volumineux la constitu- 
tion de la table d’index peut être pénalisante en temps. 
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Exemple 
Table d'index : LUC 
JACQUES CLE = « PAUL » 
PAUL On lit séquentiellement la table 
Paul est le 3° élément donc 
l'enregistrement qui contient Paul est le 3e 


FRANÇOIS 
On y accède par l'instruction ! TAKE1,3'N0$.... 


2° - Cette méthode peut être améliorée en constituant 2 tables d’index : 
une pour la clé et une pour le numéro d'enregistrement correspondant. 
Ensuite, la table CLE est triée par ordre alphabétique (si CLE alpha). La 
recherche d’un élément peut dès lors s'effectuer par dichotomie. On 
converge beaucoup plus vite vers l'élément recherché. 


Exemple : 

Un fichier d'élèves est constitué par des noms et des prénoms. 
On veut accéder au prénom d'un élève en connaissant son nom. Les enre- 
gistrements ont été effectués au moment de l'inscription à l'école donc 
pas, en suivant un ordre quelconque. 


1 MARTIN Jean 


2 PETIT Marie 

3 MOTA Alain 

4 DECCA François 

5 ORRA Jules 

6 SENS Paul 

7 CLIR Michel 

8 DUPONT Pierre 

9 PAPER Odile 

On constitue les tables d'’index NO$ et INDEX 

NOS$ (1) = MARTIN INDEX (1) = 1 
NOS$ (2) = PETIT INDEX (2) = 2 
NO$ (3) = MOTA INDEX (3) = 3 
NO$ (4) = DECCA INDEX (4) = 4 
NO$ (5) = ORRA INDEX (5) = 5 
NOS (6) = SENS INDEX (6) = 6 
NOS (7) = CLIR INDEX (7) = 7 
NOS$ (8) = DUPONT INDEX (8) = 8 
NO$ (9) = PAPER INDEX (9) = 9 


_ 
O 
a 


Ensuite la table NO$ est classée, mais la table INDEX doit suivre 
car INDEX (1) indique le numéro d'enregistrement au on trouve le nom N0O$ 


(1). 


Table classée : 

NOS$ (1) = CLIR INDEX (1) = 7 
NOS$ (2) = DECCA INDEX (2) = 4 
NOS$ (3) = DUPONT INDEX (3) = 8 
NOS$ (4) = MARTIN INDEX (4) = 1 
NO$ (7) = PAPER INDEX (7) = 9 
NOS$ (9) = SENS INDEX (9) = 6 


Maintenant pour trouver le numéro d'enregistrement correspon- 
dant PAPER on précède par dichotomie : 
CLIR 4 BAS 
DECCA 
DUPONT 
MARTIN 
MOTTA 4 MIL 
ORRA 4 BAS” 

PAPER 4 MIL’ 
PETIL 
SENS 4 HAUT 


On compare PAPER (la clé) avec l'élément milieu de la table 
Si CLE > NO$ (MIL) alors BAS = MIL + 1 sinon HAUT = MIL - 1, SICLE = 
NOS$ (MIL) on a trouvé l'élément cherché, si BAS » HAUT l'élément n’est 
pas dans la table : Ici PAPER > MOTTA donc BAS’ = 6 ; MIL’ = (INT 
(HAUT + BAS 1/2) = 7 MIL = PAPER on a trouvé le NOM cherché en 2 
coups au lieu de 7 dans le cas d'un balayage séquentiel. Maintenant la lec- 
ture de INDEX (7) donne le numéro de l'enregistrement INDEX (7) = 9. 


Le programme basic suivant met en œuvre cette méthode en 
outre les enregistrements blancs (non utilisés) sont supprimés de la table. 


La table est classée à l’aide du tri à bulle, mais n'importe qu'elle 
autre méthode conviendrait aussi. 
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INDEXS 


18 ? 
20 ?XXXXXXKERERKAREAIAARHX 
30 ?*%x ACCES INDEXE SIMPLE %X 
4Q XXXXXXKXKEKKXEXEEANIHHK 
30 ? 


60 J=1:N0$="":PN$="":ADS$="" 
2@ VOPEN "QWERT=1" 
80 9WHERE1 


90 NE=PEEKCH48F) 

100 DIM NO$CNE), INDEXCNE) 

129 FOR I=1 TO NE 

130 2TAKEI, I’ NO$ 

14Q IF NO$=CHRS$S(2) THEN GOTO 188 
159 NO$CJJ=NO$ 

168 INDEXCJJ=I 

17Q J=J+1 

180 NEXT I 

185 J=J-1 

190 ? 

490 ? XXXXXXXXXKÈKKOK HO OHOOHHOKHOHHOHK 
500 ?’*%X CLASSEMENT DE LA TABLE X 


518 ?X TRI À BULLE X 
528 ?XXXXXXXAYKEANHHNHÈXEEEAHKK 
530 ? 


54Q FOR I=1 TO J-1 

258 FOR K=I+1 TO J 

560 IF NO$CIJ)<=NO$CK) THEN GOTO 588 

370 X$=NO$CI):NO$SCI)=NOSCK) INOSCKI=XS 
575 X=INDEX(IJ:INDEXCI)J=INDEXCK) : INDEXC 
KJ=X 

580 NEXT K 

990 NEXT I 
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810 ?XXXXXKKKKXKKXKKXKKKEXÈRENX 

82@ ?X%x RECHERCHE D’UN NOM * 

B3Q ?XXXXXXKXKKXKKXKKKAKKKREHX 

840 ? 

850 INPUT'NONM: ";CLES$ 

860 M$="NOM INEXISTANT" 

8/0 HAUT=J :BAS=1 

880 IF BASD>HAUT THEN PRINT M$:GOTO 850 
890 MIL=[INTCCBAS+HAUT)/2) 

900 IF NO$SCMIL)J=CLES$S THEN GOTO 1000 
910 IF CLES»>NO$CMIL)THENBAS=MIL+1 ELSE 
HAUT=MIL-1 

928 GOTO 880 

350 ? 

367 ? 

1000 EC=INDEXCMIL) 

1010 2TAKE1,EC/NO$, PN$, NRY, ADS 


Dans ce programme, la gestion de suppression d’un enregistre- 
ment n’est pas prise en compte. Autrement dit, on supprime un élément en 
procédant de la manière classique, mais l'élément n’est pas supprimé de 
la table d’index. Il le sera à la prochaine ouverture du fichier. L’inconvé- 
nient de ce type de méthode est qu'on ne peut pas récupérer un enregis- 
trement effacé au cours de la même session car rien n'indique dans l'index 
qu'il est libre. 


2° - ACCES INDEXE AVEC SAUVEGARDE 
DE LA TABLE D’INDEX 


Dès que le fichier devient important, (taille supérieure à 200 élé- 
ments) nous avons vu que la table d’index peut mettre plusieurs minutes 
se constituer (surtout avec les méthodes de tri les plus simples). Pour les 
fichiers importants qui sont souvent modifiés (fichiers de mouvements) la 
solution précédante n'est plus acceptable. D’autres méthodes ont donc 
été mises au point. Le principe est le suivant : plutôt que de créer la table 
d’index à chaque session, elle est mémorisée, il n’y a donc qu’à la rechar- 
ger. Cette méthode séduisante nécessite de prendre des précautions par- 
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ticulières. En effet, il s’agit maintenant de gestion en « temps réel » puis- 
que la table qui a été créée à la naissance du fichier doit durer jusqu'à sa 
mort. Il n’est donc plus question de différer la prise en compte de l’efface- 
ment d’un enregistrement. Par ailleurs, on n’est pas à l’abri d’une coupure 
d'électricité qui interviendrait en cours de traitement ; il faut pouvoir 
reprendre le travail en cours : donc il faut se ménager la possibilité de 
reconstituer la table d’index en cas de problème. 


Cette méthode présente un avantage : la gestion des enregistre- 
ments libres est dynamique. Quand un enregistrement n’est plus utilisé 
(quand il est effacé), il est susceptible d'être aussitôt réutilisé. 


Le programme suivant montre la méthode à appliquer. La créa- 
tion du fichier n’est pas traitée, on procède comme nous avons vu jusqu'à 
présent (il ne faut pas oublier l’initialisation avec des codes ASCII 2). 


Ensuite, il faut appeler la procédure de création de la table 
d'index : le fichier est lu séquentiellement, le premier champ de chaque 
enregistrement est placé dans la table d’index NO$, le numéro d’enregis- 
trement dans la table INDEX. 


L'index N0$ est ensuite trié de telle sorte que les noms soient par 
ordre alphabétique au sommet de la table, suivis par les enregistrements 
libres. Ceci étant, les deux tables d’index sont sauvées (! MSAVE...). 


Notons tout de suite que c’est aussi cette routine qui permet de 
remettre la table d’index en ordre au cas où des incohérences seraient 
constatées (fausses manœuvres, coupure d’électricité.….). Il s'agit d’une 
routine de secours donc le programme principal ne permet pas d'y accé- 
der il faut taper RUN 1150. 


Programme principal : il faut tout d’abord charger les tables 
d'index en mémoire centrale (lignes 50-120). Les lignes 120-180 sont 
facultatives, elles permettent d'afficher le contenu des index à titre expéri- 
mental. 


Recherche d’un nom : comme précédemment la recherche d’un 
élément s'effectue par dichotomie (S / Prog. 1020) les lignes 310-390 sont 
un exemple de la gestion des doubles, la recherche dichotomique permet 
de tomber sur un des éléments cherchés, pas forcément le premier ou le 
dernier, donc quand on a trouvé l’un des éléments cherchés on se déplace 
vers le haut et vers le bas pour chercher les autres (qui sont forcément 
contigus, la table étant classée). 
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INSERTION D'UN ELEMENT : on recherche le premier empla- 
cement libre en lisant séquentiellement NO$ (), si on n’en trouve pas le 
fichier est plein, sinon la lecture INDEX nous indique quel est son numéro 
d'enregistrement. Il est aussitôt occupé par la nouvelle fiche. Il faut donc 
remettre maintenant l'index à jour. On profite de ce qu'il est classé pour 
insérer la fiche directement à sa place de la manière suivante. 


NO$ INDEX 
ARN 7 
BIQ 
REN 8 CLE = MON on veut insérer MON 
WOF 1 
1 2 9 
2 10 
EC =9 2 : 


1 on compare WOF et MON. WOF est supérieur à MON donc on descend 
WOPF d’un cran dans N0O$ 

2 on compare MON et REN. REN est supérieur à MON donc on descend 
REN d'un cran 

3 on compare BIQ et MON. BIQ est inférieur à MON on insère MON et EC. 


Après 1° 

NO$ INDEX NO$ INDEX NO$ INDEX 

ARN 7 ARN 7 ARN 7 

BIQ 5 BIQ 5 BIQ 5 

REN 8 REN 8 1 MON 9 

1  WOF 1 1 REN 8 REN 8 

WOF 1 WOF 1 WOF 1 

2 10 2 10 2 10 
Après 20 Après 30 


Après un ajout l'index est immédiatement classé. 


SUPPRESSION D'UN ELEMENT : 

Pour supprimer un élément on recherche avec la clé comme pour 
une lecture ; ensuite on écrit ASCII 2 dans le premier champ de l’enregis- 
trement Index (1). 
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SAUINDEX 


10 
20 
20 
40 
20 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
RIME 
130 
200 
210 
228 
230 
240 
200 
250 
260 
270 
280 
230 
300 
310 


2 ARR OOROOREX 
**X ACCES INDEXE AUEC SAUVEGARDE * 
MT22222222211111211111111122222 
3 
J=1 :NO$="" :PNS$="" :ADS="" 

OPEN "QUERT=1" 

WHERE 1 
NE=PEEKCH48F ) 
DIM NO$CNE), INDEXCNE ) 
£MLOAD'"NOMS=NOS " 

£MLOAD" INDEX= INDEX" 

? 

FORI=1TO NE 

PRINT NOS$CI), INDEXCI) 

NEXT 

STOP 

CLS 
PRINT'RECHERCHERCR) ;, AJOUTERCA) , SLIPP 
RCS)I FERMERCF)" 
PRINT@20,4;""; 

GET A$ 

IF A$="A" THEN GOTO 468 

IF A$="R" THEN GOTO 250 

IF A$="S" THEN GOTO 740 

IF A$="F" THEN GOTO 930 ELSE GOTO 


2 


PXXXXKKKXKKKEKXEKEKKIÈRHRK 

7% RECHERCHE D’UN NOM X 

D XXXXXKXKXXAIEEXREKXXXEKEX 

2 

GOSUB1020 

IF NO$SCMIL-1)=CLES$ THEN MIL=MIL-1I G 
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172 


OTO 310 


320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
44û 
450 
460 
470 
480 
490 
500 
510 
520 
530 
340 


REPEAT 

EC=INDEXCMIL) 

9 TAKE 1, EC? NO$, PNS, ADS 
MIL=MIL+1 

PRINTNOS, PNS 

PRINTADS 

WAIT 300 

UNTII. NO$SCMIL)CLES 

GOTO 17Q 

3 
MT2211122211121212222122 21200 
X AJOUT D'UN ENREGISTREMENT * 
2 RO RO OR OI OI OX 


3 


INPUT'NON: "3; NOS$ 


INPUT"'PRENONM: "3; PN$ 
INPUT'ADRESSE: ";AD$ 
I=1:FL=Q 

REPEAT 


IF NO$CI)D=CHR$SC2) THEN FL=1 

I=1+1 

UNTIL I=NE+1 OR Fi=1 

IF I=NE+1 AND NO$CI-1)<CHR$(C2) THE 


N PRINT"'FICHIER PLEIN":NAIT300 :GOTO1/0 


550 
560 
570 
580 
590 
e1212 
610 
620 
638 
640 


I=I1-1 

EC=INDEXCI) 

EWRITE1,EC’NOS$, PNS, ADS 

3 

FL=Q 

REPEAT 

IF NO$>NO$CI-1) THEN FL=1:GOTO0 650 
NO$SCIJ=NOS$SCI-1) 
INDEXCI)J=INDEXCI-1) 

I=I-1 


65@ UNTIL FL=1 OR I=1 

669 NC$CI)=NO$ 

6?7@ INDEXCI)=EC 

688 GOTO1?70@ 

69@ ? 

700? XKX KA IOEIIEEX 

718 ’*X SUPPRESSION * 

220? XXXKHIIIIERINX 

73@ ? 

7240 GOSUB 1020. 

258 A$=CHRSC2) : 

268 2URITE 1,EC’A$ 

220 I=MIL 

288 X=INDEXCMIL) 

29 IF I=NE THEN GOTO 85@ 

800 REPEAT 

818 NOSCID=NOSCI+1) 

820 INDEXCID=INDEXCI+:) 

830 I=I+1 

84@ UNTIL NO$SCI)=CHRS(2) OR I=NE 
85@ IF I=NE THEN NO$SCNEJ=A$ : INDEXCNE)J=E 
C:GOTO 878 

86@ NOS$SCI-1)=A$: INDEXCI-1)=EC 
87@ GOTO 178 

880 ? 

890? XX XX IOIONNIOR ON II IOOIECK 
908 x FERMETURE DU FICHIER * 
918? XX HHHONNON OR I IC IOR AIX 
920 ? 

938 9MSAUE "NOM$=NOS$ " 

94@ 9MSAUE"INDEX= INDEX" 

958 9CLOSER 

968 END 

9?@ ? 
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174 


380 

9930 

12008 
1810 
1220 
1830 
1240 
1050 
10608 
1070 
1880 
1090 

Q 

1100 
1110 


M T222222221222202202022222%; 
** LECTURE DANS LE FICHIER * 

2 XX HORAIRE X 

3 

1=0 

REPEAT 

I=I+] 

UNTIL NO$SCI)J=-CHR$(2) OR I=NE 
INPUT'NOM: "3;5CLES 

M$='"NOM INEXISTANT" 

HAUT=I :BAS=1 

IF BASDHAUT THEN PRINT M$:GOTO 186 


MIL=INTCCBAS+HAUT)/2) 
IF NO$SCMIL)D=CLES THEN EC=INDEXCMIL 


J RETURN 
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IF CLES$S>NO$CMIL) THEN BAS=MIL+1 EL 


SE HAUT=MIL-1 


1130 
1140 
1158 
1160 
117G 
1150 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


GOTO 1098 

3 
MT221112212122212222122222222 
*X MISE À JOUR TABLE D’INDEX * 
MTS 1T 111111111111 21111221210 
3 

NO$="* 

LOPEN"QWERT=1" 

QUHERE 1 

NE=PEEKCH4BF ) 

STOP 

DIM INDEXCNE ) ; NOM$CNE ) 

FOR I=1 TO NE 

2TAKE1, I’ NO$ 

NO$CI)=NO$ 

INDEXCI)=I 

NEXT I 

NO$CB)=CHRS(2) 


13190 INDEX(8@)=0 

1320 ? 

1330 7 XXXXKXXXKKXEKKRÉKXERRANNRKX 
139480"7*X CLASSEMENT. DE LA TABLE: * 


1350 ?’X TRI À BULLE X 
1360 ?XXXXXXKXKAKKKXEXEXERERERKRRX 
1370 ? 


138 FOR I=1 TO NE-1 

1398 FOR K=I+1 TO NE 

1408 IF NOSCIJ<=NO$CK) THEN GOTO 1430 

1419 XS=NOS CI) :NOSCIJ=NOSCKI INOSCKI=XS 

1428 X=INDEXCI) :INDEXCI)=INDEXCK) : INDEX 
(KI=X 

1438 NEXT K 

1448 NEXT 1 

1458 1=8 

1468 REPEAT 

1478 I=I+1 

1488 UNTIL NO$CI)CHRSC2) 

1498 I=I-1 , 

1508 FOR J=1 TO NE-I 

1519 XS=NOSCJJ INOSCJ)IENOSCJ +1) INO$CJ+I) 
=X$ 

1528 X=INDEXCJ) : INDEXCJJ=INDEXCJ+I) :IND 
EXCJ+1)=X 

1538 NEXT J 

1548 MSAUE "NOMS=NOS * 

1559 9MSAUE" INDEX= INDEX" 

1568 STOP 

1528 ? 


Il ne faut pas oublier de remettre à jour les tables d’index. La 
méthode est celle inverse de l'insertion : il faut boucher le trou : 
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On veut supprimer MON à EC = 9 suppression sur le disque. 


ARN7 ARN7 ARN7 ARN7 
BIQ 5 BIQ5 BIQ5 BIQ5 

1 MON 9 I REN8 REN 8 REN8 
REN 8 REN8 1 WOF 1 WOF 1 
WOF 1 WOF 1 WOF 1 1929 
210 210 210 210 


On voit que l'enregistrement 9 est libéré, il pourra être réutilisé au 
prochain ajout. 


FERMETURE DU FICHIER : il ne faut pas oublier de sauver les 
tables d’index, car celles sur disque ne sont peut-être plus à jour. 


3° - CALCUL DU N° D'ENREGISTREMENT 
A PARTIR DE LA CLE : HASH-CODING 


Quand les tables d’index deviennent trop longues, elles occu- 
pent une place en mémoire centrale considérable. Si on juge cette perte 
trop pénalisante, on a recours au Hash-Code. Le principe de cette 
méthode est de calculer le numéro d'enregistrement à partir de la clé. On 
définit donc une fonction mathématique qui tient compte des propriétés de 
la clé et qui fournit un nombre compris entre 1 et le nombre total d’enregis- 
trements prévus. Cette fonction doit fournir des nombres aléatoires, qui 
sont répartis au mieux sur l'intervalle alloué. 


Si la clé est numérique, une bonne méthode consiste à : 
- l'élever au carré 
- prendre les 4 chiffres du milieu + 1 
- prendre l'inverse on obtient un nombre compris entre 0 et 1 
- le n° d'enregistrement est alors donné par ce nombre x par le nombre 
total d’enregistrements du fichier. 


Si la clé est alphanumérique on fait correspondre à chaque sym- 
bole un nombre (son code ASCII par exemple, sa position dans l’alpha- 
bet...). 
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Dans le programme exemple nous avons utilisé la fonction sui- 
vante : on a tout d’abord supposé que tous les noms avait plus de trois let- 
tres. 


Dans la clé, on a extrait les 4 lettres du milieu, à chaque lettre on a 
fait correspondre son code ASCII. 


La clé numérique est donnée par la suite d'opération 
CL = CODE 1" lettre x 997 + CODE 2: lettre x 97 + CODE 3e lettre x 7 + 
CODE 4° lettre x 13. 
On prend le log décimal de CL et on garde comme clé le 3e et 4e chiffre 
décimal augmenté de 1. 


Pour insérer un enregistrement, il suffit de calculer la clé et de 
placer les informations. 


Pour récupérer un enregistrement, on calcule de nouveau la clé 
et on accède ainsi directement aux informations. 


Cette technique exploite directement les possibilités d’un fichier 
à accès direct. 


Malheureusement, il peut arriver que deux clés d'origine corres- 
pondent à deux clés calculées identiques. Ce phénomène appelé « colli- 
sion », est d'autant plus fréquent que le taux de remplissage du fichier est 
important. Il faut donc tenir compte de ces « accidents ». 


Tout d'abord on réduit le risque en consentant à perdre une place 
sur le fichier de 20 à 30 %. 


Ensuite, il faut tout de même étudier un processus de gestion des 
collisions. La méthode la plus simple est celle employée dans l'exemple. 
Chaque enregistrement est précédé d’un pointeur, si ce pointeur est = O, il 
n'y a pas encore eu de collision, s’il n’est pas à zéro, il indique l'adresse de 
l'enregistrement jumeaux 


par exemple 


LS et Ne 212 
DURAND] JACQUES |. à 212 DURANT | JEAN |... 5 Jura 


On a ainsi créé une structure de liste (simple chaînage, en fait on 
a simulé le principe du fichier à accès séquentiel). 
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HASH 


10 ?XXXXXXXXAKKKAXKX 
20 ?’%Xx HASCH-CODE % 
30 ?XXXXXXKXKKXKXX 


4Q ? 

90 NO$="":PN$="":AD$S="":Ag="" 

60 2OPEN"HASH=1" 

?@ CLS 

8Q PRINT"'RECHERCHERCR) , AJOUTERCA), SUPPR 
IMERCS) FERMER(CF)" 

99 PRINT@28,4;""; 

100 GET AÀ$ 


11Q IF A$="A" THEN GOTO 398 
12Q IF A$="R" THEN GOTO 710 
13Q@ IF A$="S" THEN GOTO 880 
140 IF A$="F" THENSCLOSET ‘END 
158 GOTO1@0 

168 ? 

170 7 XXXXXX XX ANA ANAINAK 

180 ?%x CALCUL DE LA CLE %X 

190? XXXXXXXKXANONANONKEAHOHK 

200 ? 

219 HA=INTC(LENCNO$)-4)/2+1:IF HA<1 THEN 
HA=1 

22@ HAS$=MIDS$SCNOS$, HA, 4) 

23@ FORI=I1 TO 4 

248 HACIJ= ASCCMIDSCHAS$,1,1)) 
25@ NEXTI 

260 CL=337XHAC(1)+997XHAC2)+9/7XHAC3)+13X 
HAC4) 

27Q CL=LOGCCL) :PRINTCL 

288 CL=CL-INTCCL):PRINTCL 

2938 CL=CLXx100 :PRINTCL 

300 CL=CL-INT(CL) :PRINTCL 
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310 
320 
330 
340 
350 
360 
370 
380 
330 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
210 
220 
330 
540 
290 
260 
570 
280 


CL=CLX100:PRINTCL 

CL=INT(CL) 

RETURN 

1 

2 RH OO OI 
*X AJOUT D'UN ENREGISTREMENT %* 
2 XX OO ICE 
p 

INPUT'NOM: ‘";NO$ 

INPUT'PRENOM: ‘;PNS$ 
INPUT'"ADRESSE: ‘";AD$ 

GOSUB 218 

9TAKE1,CL’PT,AS 

IF A$CCHRS(2) THEN GOTO 488 
PT=@ 

UWRITEI,CL’PT, NO$,PNS, AD$ 

GOTO 7 

IF PT=Q THEN M=CL:GOTO 538 
REPEAT 

M=PT 

UTAKE1,PT’PT 

UNTIL PT=@ 

I=100 

REPEAT 

DTAKE1,l’PT,AS$ 

I=I+1 

UNTIL I=151 OR A$=CHR$(2) 

IF I1=151 THEN PRINT "FICHIER PLEIN" 


:WAIT300:GOTO 70 


290 
600 
610 
620 
630 
640 
650 


IST=i 

PT=@ 

2WRITET, I’PT,NO$,PN$, AD$ 
TAKE, M'PT,NO$S, PN$, ADS 
PT=I 
LWRITE1,M/PT,NO$,PNS$, AD$ 
GOTO 78 


179 


660 ? 
670? XXXXXKKX EAN KIAK III IKIIOIK 

682 ’X RECHERCHE ENREGISTREMENT X 

698? XXXK IH X AK KIONK IH INA II IIOK 

708 ? 

7218 INPUT'NOM: “;NO$ 

?22@ GOSUB 218 

23@ 2TAKE1,CL’PT,AS, PN$, ADS 

24Q@ IF NO$=A$ THEN GOTO 788 

750 IF PT=@ THEN GOTO 810 

268 CL=PT | 

278 GOTO 730 

788 PRINTAS, PN$ 

290 PRINTADS :WAIT320 

89@ GOTO 78 

818 PRINT'NOM INCONNU ":WAIT 328:GOTO ? 


828 GOTO 78 

830 ? 

B4D ?XXXXXKXXKXKXKKXEEKXXEIIIANX 

850 ?%x EFFACE ENREGISTREMENT X 

B60 ? XXXXKXKKAKXAAKEHHHKKIOHKAUK 

870 ? 

880 INPUT'NOM: ";N0$ 

830 GOSUB 218 

900 2TAKEI,CL’PT,AS 

910 IF A$=NO$ AND PT=Q THEN GOTO 960 
920 IF A$=NO$ AND PTQ THEN GOTO 1200 
930 IF A$<CNO$ AND PT THEN GOTO 1068 
948 PRINT'NOM INCONNU'":WAIT 38@ 

958 GOTO 70 

960 A$=CHRS$(2) 

978 LWRITE1,CL’PT,AS$ 

380 GOTO ?@ 

390 CL=PT 
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1000 STAKEIT,PT’P1,NO$,PNS$,AD$ 
1810 JWRITEI,CL’P1,NO$,PN$, ADS 
1028 P1-0 

1030 A$=CHR$S(2) 

1040 JWRITEI,PT'PI,AS$ 

1850 GOTO 70 

1860 CL=PT 

19/@ GOTO 9300 

1080 ? 

1890 ?XXXXXXXKXKEKKXKEKKXEXEXEKKX 
1100 ’XINITIALISATION FICHIER X 
1110 ?XXXXXXKXXXXXXEKERAEEENAAHK 
1120 ? 

113Q 2OPEN"HASH=1" 

1140 SWHEREI 

1150 NE=PEEKCH48F) 

1160 AS$=CHR$S(2) :PT=Q 

1170 FOR I=1 TO NE 

1180 SWRITE1,I’PT,AS$ 

1190 NEXT I 

1280 STOP 


Programme : commentaires (voir listing). 


Pour utiliser ce programme, il faut d’abord créer un fichier de nom 
HASH, d’une dimension de 120 à 150 enregistrements. Les 100 premiers 
constituent le fichier principal, les autres forment le fichier des collisions. 
On fait RUN 130 pour initialiser ce fichier, le premier champ est numérique 
et rempli de zéros, tandis que le second est alphanumérique et rempli de 
codes ASCII 2. 


Revenons maintenant au début du programme. 
Lignes 50 à 150 : Initialisation et menu. 


Lignes 210 à 330 : Sous programme de calcul de la clé : elle est 
calculée comme expliqué précédemment, des PRINT permettent de sui- 
vre le déroulement de ce calcul. 
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380 - 650 : Ajout d’un enregistrement. 


Pour ranger un enregistrement, on calcule tout d’abord sa clé 
numérique. Ensuite, on vérifie que l'enregistrement est libre : c'est le cas si 
A$ = CHRS (2). On peut y écrire ; si A$ > CHRS (2) on s'intéresse à la 
variable PT. Si elle est égale = Oil n’y a pas encore eu de collision sur ce 
numéro de clé, sinon on lit l'enregistrement dont le numéro est donné pré- 
cisément par PT, jusqu’à rencontrer le premier enregistrement ou PT = 0 
on mémorise son numéro, ensuite on parcours séquentiellement le fichier 
des collisions jusqu'à trouver une place libre, on y range l'enregistrement 
et on remet à jour le pointeur de chaînage de l'enregistrement mémorisé : 


DURANT | 


110 


DUPONT 111 


fichier des collisions 


MURANI à insérer 


112 


113 


E 110 
+ 14 | 0 |DUPONT 111 
Ma 
118 


La lecture du fichier montre que l'enregistrement n° 112 est libre. 
Donc on y range « MURANI » et on établit le chaînage. 


Lignes 710-820 : Recherche d'un enregistrement. 


On calcule la clé, puis on lit l'enregistrement. Si la clé alphanumé- 
rique et le nom lu concordent on a trouvé le bon enregistrement et on l'affi- 
che, sinon la variable PT fournit le nom du prochain enregistrement à lire. 
Si PT vaut 0 et que les clés ne sont pas accordées alors l'enregistrement 
n'existe pas. 


Lignes 880-1070 : Effacement d'un enregistrement. 
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Le principe est très simple : si la variable PT est à zéro, on remplit 
les deux premiers champs avec respectivement 0 et CHRS (2), si la varia- 
ble PT n'est pas à zéro on procède comme suit : 


DUPOND... 


DUPONT DUPON 


MUPONI 
on veut supprimer 


DUPONT on l'écrase avec l'enregistrement qui lui est chaîné, et on efface 
l'enregistrement ainsi copié. 


130 


DUPOND 


MUPONI 


L'enregistrement ainsi libéré peut être utilisé pour d’autres collisions. 
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LANGAGE MACHINE 


Introduction à l’utilisation du lecteur de disquette à partir du langage 
machine. 


Ce chapitre est destiné aux inconditionnels du langage machine 
qui désirent utiliser le lecteur de disquettes dans leurs propres program- 
mes. Il ne comporte donc pas de rappel sur la manière d'utiliser le langage 
machine du 6502 et sur l'ORIC (se reporter à d’autres livres, il en existe de 
nombreux). : 


| - LA PREMIERE OPERATION EST D'APPRENDRE 
A MANIPULER LA RAM OVERLAY : 


Les 16 kOctets de RAM en overlay sont situés en parallèle avec 
la ROM Basic de l'ORIC. On ne peut donc pas utiliser simultanément l’un 
et l’autre ; des broches sur le connecteur d'extension (MAP et ROMDIS) 
permettent d'effectuer la sélection ROM-RAM. 


Le DOS est logé dans la RAM Overlay pour ne pas occuper de 
place sur la mémoire « normale » utilisateur. La carte contrôleur du lecteur 
permet donc d'accéder à la RAM Overlay. Le procédé est même très sim- 
ple pour l'utilisateur. 

- Pour accéder à la RAM il faut 
interdire les interruptions : SEI ; LDA % + 7 F ; STA + 30E 
mettre 1 dans la position Æ 3FA : LDA # 01 

STA # 03FA 
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- Pour remettre les choses dans leur état normal (accéder à la ROM) il faut 
mettre « 0 » dans # 3FA : LDA%X # 00 


STA + 3FA - 
puis autoriser le 


s interruptions : LDA% + CO,STA + 30 E,CLI. 


A titre d'exemple, nous donnons ci-dessous un utilitaire permet- 
tant de transférer dans la RAM utilisateur des parties du DOS pour pouvoir 
les analyser ensuite : 


TRAN 


10 
2@ 
30 
4Q 
50 
60 
78 
80 
85 
30 
FERE 
35 
100 
“3 
105 
110 
115 
120 
125 
126 
200 
285 
296 
287 
208 
203 
210 


SFER 


AD=#B800 
> ADRESSE DE DEPART-->H50, #51 
ADRESSE DE FIN  -->452, 453 
» ADRESSE D’ARRIVEE-->H54, #55 
REPEAT 
READ A 
POKEAD, À 
AD=AD+1 
UNTIL AD=H#B800+456 
INPUT"ADRESSE DE DEPART ZONE À TRANS 
RD 
DOKE#50, D 
INPUT"ADRESSE FIN 2ONE À TRANSFERER 


DOKE #H52,F 

INPUT'"ADRESSE DE RELOGEMENT'5R 
DOKE #H#54,R 

IF D>F THEN PRINT"'ERREUR" :GOTO 90 
CALL H#B800 

END 

DATA #78:?SEI 

DATA HAS:?LDA x#01 

DATA #01 

DATA H8D:?STA #O3FA 

DATA #HFA 

DATA #03 

DATA HAG:?LDY xHQ0 
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220 
230 
240 
250 
260 
270 
280 
230 
300 
310 
320 
330 
340 
350 
360 
370 
380 
3930 
48Q 
41Q 
420 
430 
440 
450 
460 
420 
480 
490 
500 
510 
520 
530 
540 
5950 
560 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
"ATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


#00 
HAS 
#50 
#CS 
#52 


HD : 


#G6 


HAS : 


#51 


#CS: 


#53 
#FQ 
#13 
#B1 
#50 
#91 
#54 
#EG 
#50 
kDQ 
#Q2 


#E6 : 


#51 
hEG 
#54 
#D@ 
#Q2 
#E6 
#99 
#4C 
121% 
#B8 
HAS 
#00 
k8D 


:? LDA 


:> CMP 


? BNE 


? LDA 


? CMP 


:?BEQ 


:? LDA 


:?STA 


:2 INC 


:?BNE 


INC 


:7 INC 


:?’BNE 


:7 INC 


:?JMP 


:? LDA 


:?STA 


CHS5@),Y 


CH54),Y 


#50 


#02 


#51 


#54 


#@2 


#55 


#B800 


21212) 


#O3FA 


570 DATA #FA 
580 DATA #03 
590 DATA H#58:?CLI 
600 DATA #60:?7RTS 


Commentaires : 


- Le progamme enl.m. est fourni par les DATA ; les lignes 40 à 90 
permettent l'implantation du programme dans le 2e clavier de l'ORIC. Pour 
le reloger il suffit de modifier les lignes JMP+B808 (550,560,570). 


- L'adresse de départ de la zone à transférer : c’est la première 
adresse du bloc que l’on veut transférer. 


- L'adresse de fin de la zone à transférer : c’est la dernière 
adresse du bloc à transférer. 


- L'adresse de relogement : c'est l'adresse où le premier octet du 
bloc translaté sera placé. 


- Fonctionnement du programme en langage machine. 
Lignes 190-240 : autorisation d'entrée dans l’overlay. 
Lignes 250-260 : initialisation de Y. 


Lignes 270-380 : On compare les adresses de début et de fin de 
bloc : si elles sont égales retour au basic sinon. 


Lignes 390-420 : déplacer un octet. 


Lignes 430-570 : incrémenter adresse départ et adresse du relo- 
gement. 


Puis recommencer au début. 


Lignes 580-640 : Remise en état pour accéder de nouveau en 
basic, puis retour au basic. 


Carte mémoire du TDOS : 

Adresses 

C000-COFF : adresses utilisées par le DOS 

C100-EOFF : programme du TDOS 

E100-E120 : liste des mots types (BAS,BIN...) 

E120-E25F : liste des mots clés (CAT, WRITE) 

E260-E47F : liste des messages d'erreurs, et des messages divers 
E480-E4FF : table des jumps dans l'ordre des mots clés (Voir tableau) 
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E500-E5FF : programme du BOOT 

E600-E6FF : programme assurant le lien avec la page 4 
E700-E7FF : sauvegarde de la pile de l’Oric (page 1 de la RAM) 
E800-EBFF : 

ECO00-ECFF : buffer liste piste secteur en entrée 
EDO00-EDFF : buffer liste piste secteur en sortie 
EE00-EEFF : Bit Map disc 1 (Buffer) 

EF00-EFFF : Bit Map disc 2 (Buffer) 

FO000-F1FF : libre (utilisé par le DOS) 

F200-F2FF : Buffer directory (catalogue) 

F300-FBFF : utilisé par DOS 

FCO0-FDFF : Buffer « Fichiers ouverts 

FEO00-FEFF : Buffer Entrée / Sortie 


Table des correspondance : 


WRITE E3F2 
TAKE E3F8 
JUMP F4DB 
APND EOF8 
CUT F167 
REWIND DCBA 
OPEN DD84 
WL DE24 
WUL DE1C 
CREATE DA4A 
CLOSE DCA7 
MSAVE F835 
MLOAD F87E 
SAVE C9BA 
LOAD C445 
CAT D48B 
LCAT D49A 
RENAME D243 
COPY D635 
DEL C4B9 
LOCK C4E6 
UNLOCK C4DE 
START F5BE 
UNSTART F5D9 
MOUNT D621 


DENAME D68D 
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INIT. C2CD 


DEMOUNT D3CD 
ERSET DEB2 
EROFF DEBA 
WHERE F4BF 
SEARCH CFBA 
MERGE FOA5 
HSCR E404 
LSCR E40A 
MASTER CECI 


La liste des mots types : elle comprend les mots suivants : 
BAS,BIN,SYS,CMD,TXT,DAT,ARY,SCR 


Liste des mots clés et table des jumps : 

Ces deux tables permettent de connaître l’adresse de début de 
chacune des instructions du DOS. Ceci peut vous être utile pour désas- 
sembler des parties précises ou pour utiliser le lecteur par un programme 
en langage machine. 


L'adresse du nième saut correspond à la nième instruction de la 
liste des mots. Pour éviter des recherches fastidieuses nous donnons les 
correspondances dans le tableau ci-après. Pour utiliser les fonctions du 
lecteur en langage machine, il suffit de placer à partir de l'adresse + 35 le 
nom de la fonction suivi de ses attributs, puis d'appeler le sous-pro- 
gramme situé en # 400. (voir programme ci-dessous). 


>21000,1017 

1000 AGFF  LDY XHFF 
1002 C8 INY 

1003 B93010 LDA #1230,7Y 
12006 993500 STA #2035,7Y 
1009 D@F?  BNE #1002 
100B A935  LDA x#35 
1800D 85E9  STA #E9 
100F A90Q  LDA x#@0 
19011 8SEA STA #HEA 
1013 200004 JSR #0400 
1216 6@ RTS 

jt 
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>U1939, 19049 


1030 4C 4F 41 44 22 43 4C 41 LOAD'"CLA 
1038 53 43 41 54 2E 42 49 4E SCAT.BIN 
1040 22 @0 55 55 55 55 55 55 ".UUUUUL 
1248 55 

>L 


Remarque : 


L'octet 1042 = 00 est nécessaire : il sert de « butée » à la boucle 
du programme, il est testé à la ligne 1009. 


Buffers de BITMAP 

Le contenu de ces buffers indique quels sont les secteurs libres 
et les secteurs occupés sur la disquette. 

Chaque piste est représentée par 3 octets (24 bits) un bit à zéro 
indique que le secteur est occupé, un bit à 1 indique un secteur libre. 


La représentation des secteurs d’une piste est la suivante : 


1°octet 20 octet 3 octet 
10 11 12 13 14 15 16 17 23456789 Lxxxxxx1 
n° secteur X : innoccupé 


… L'siL = 1 toute la piste est occupée 
si L = Oil reste des secteurs libres sur la piste 
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Les octets inoccupés sont placés à la valeur # 80. Les 8 derniers 
octets du Buffer représentent le nom du volume. La Bit Map est bien évi- 
demment mémorisée sur le disque elle se trouve sur la piste 20 (décimal ; 
14 H) secteur 1. 


Buffer Catalogue (Buffer directory) 


Le catalogue de la disquette est chargé dans ce buffer. Le 
contenu de ce buffer permet au DOS de retrouver un programme contenu 
sur le disque. 


Le contenu du Buffer est le suivant : 
Octet 
0,1 : FF si disque non présent ou lecteur non monté sinon 
- 00 00 pour le premier secteur du catalogue ; 
- pour les secteurs suivants ces octets représentent respectivement le 
numéro de piste et le numéro de secteur où le bloc est stocké sur le disque. 


Le premier bloc du catalogue est toujours placé piste 4 14, sec- 
teur 2 ; les autres secteurs sont alloués en fonction de la place disponible 
sur le disque ce qui explique qu'il soit nécessaire de mémoriser leur place 
(pour les modifier ou les remettre à jour). 


Octet 2,3 : numéro de piste et de secteur du prochain bloc catalo- 
gue dans le cas où le catalogue complet est plus long qu’un secteur. (C'est 
ce qu'on appelle le lien de chaînage) le reste du secteur est constitué de 
14 segments de 8 octets permettant de décrire 14 fichiers. (Si le catalogue 
comporte plus de 14 titres il occupe plus d’un secteur, ce qui se vérifie faci- 
lement en demandant ! CAT «». Le disque se met à tourner, la première 
liste est affichée puis le lecteur recommence à tourner et les 14 titres sui- 
vants sont affichés... etc.) 


Les 18 octets descriptifs de chaque fichier se répartissent 
comme suit : 


1.2 9 4,5 67 6: "9410 11.127718. 14:15. 16-17 


NS Ne Se à 
B AIS D 


Les 2 premiers octets : numéro de piste et de secteur de la liste 
pistes / secteurs du fichier (File control Block ou FCB), ou FF si le fichier 
est supprimé du disque). 

Octet 2 : code ASCII de-U si le fichier n'est pas verrouillé (# 55) 
code ASCII de L si le fichier est verrouillé. 
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Octets 3 à 10 : nom du fichier limité à 8 lettres, si le nom comporte moins de 
8 lettres les octets vides sont remplis avec des espaces (code ASCII 4 20) 
Octet 11 : code ASCII du «.» 

Octets 12,13,14 : Code ASCII des 3 lettres de l'extension BIN,BAS,TXT. 
Octet 15 : type du fichier séquentiel ou direct S ou D 

Octets 16-17 : nbres de secteurs occupés par le fichier sur le disque codé 
en hexadécimal (dans le cas d’un fichier de plus de 256 secteurs le poids 
faible est sur l’octet 16, le poids fort sur l’octet 17). 


Buffers listes pistes / secteurs (en entrée et en sortie). 


Ces buffers contiennent les listes pistes/secteurs d’un fichier. 
Dans le cas d’une opération d'écriture (WRITE, SAVE...) c'est le buffer 
entrée qui est chargé. Dans le cas d'une opération de lecture c’est le buffer 
sortie qui est rempli. 


Il'existe trois types de listes pistes / secteurs : 
1 -les FCB fichiers programme 
2 - les FCB fichiers à accès séquentiel 
3 - les FCB fichiers à accès direct 


1 - FICHIERS PROGRAMME 
Les secteurs sont découpés comme suit. 


_ Octets 0,1 : lien de chaînage : numéro de piste et de secteur de la 
suite de la liste pistes / secteurs. Si l’octet O = FF et le suivant = # 00 pas 
de chaînage. 


Octets n° 2,3 : Contiennent l'adresse de début de chargement du 
programme codée en hexadécimal, l'octet de poids faible en 2, l’octet de 
poids fort en 3. 


Octets 4,5 : longueur totale du fichier (en octets) codée en hexa 
suivant la même disposition que précédemment. Les 250 octets restants 
sont regroupés par 2 et représentent ces numéros de piste et de secteur 
où le programme est stocké sur le disque. (Octets 6,7: n° piste / secteur du 
1er secteur, octects 8,9 : n° piste / secteur du 2e secteur, octets 254,255 n° 
piste (secteur du 125° secteur de programme). Quand ils ne sont pas utili- 
sés, ces octets contiennent la valeur FF. 


2° - FICHIERS A ACCES SEQUENTIEL 

Le FCB est contenu dans l'enregistrement n° 0 du fichier (ce qui 
explique qu'il n’est pas disponible pour l'utilisateur). Une fiche est repré- 
sentée sur le disque par une suite de codes. ASCII image. de chacun des 
caractères de la fiche. 


192 


Chaque enregistrement est séparé du suivant par un code ASCII 
+ FF, le FCB est séparé du premier enregistrement par le code + FF, le 
dernier enregistrement est marqué par les deux caractères : + 00 suivit de 
# FO. 


Le FCB est logé pendant l'ouverture du fichier dans le buffer 
fichier ouvert. 


La structure du FCB est la suivante : 
Octet 0 : indique le numéro logique du fichier 
Octet 1 : numéro du lecteur. 
Octet 2 : Type du fichier ; pour un fichier à accès séquentiel, il est toujours 
égal à 1. 
Octet 3 : Protection du fichier ; O = WUL 1 = WL 
Octets 4,5 : numéro de piste et de secteur du FCB (si fichier vide) ou du 
premier enregistrement (dans le cas contraire). 
Octets 6,7 : inutilisés pour les fichiers à accès séquentiel. 
Octets 8,9 : nombre total d'enregistrements : numéro du dernier PRE 
trement. 


Octets 10,11 : numéro de l'enregistrement courant. Attention : Après une 
lecture l'enregistrement courant est le successeur de l'enregistrement lu. 
Octets 12,13 : numéro de piste et de secteur de la première liste pis- 
tes / secteurs du fichier. 

Octets 14,15,16 : numéro de piste et de secteur de laliste pistes / secteurs 
exploitée et déplacement dans cette liste. 

Octets 17,18,19 : idem que 14,15,16 mais pour la dernière liste pis- 
tes/ secteurs. 

Octets 20,21 : numéro de piste et de secteur du premier enregistrement. 
Octets 22,23,24 : numéro de piste, de secteur et déplacement pour l'enre- 
gistrement courant. 

Octets 25,26,27 : idem Octets 22,23,24 mais pour le dernier enregistre- 
ment. 


3° - FCB FICHIERS A ACCES DIRECT 


Les fiches sont séparées par un octet à FF, les rubriques aussi. 
La structure du FCB est : 
Octet 0 : indique le numéro logique du fichier 
Octet 1 : numéro du lecteur 
Octet 2 : type du fichier : O pour un fichier à accès direct 
Octet 3 : protection du fichier : même convention que pour les fichiers 
séquentiels. 
Octets 4,5 : numéro de piste et de secteur du FCB 
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Octets 6,7 : nombre d’enregistrements par liste/secteurs 

Octets 8,9 : nombre total d'enregistrements 

Octets 10,11 : numéro enregistrement en cours d'exploitation 

Octes 12 : longueur d’un enregistrement (en octets) 

Octet 13 : nombre d’enregistrements par secteur 

Octets 14,15 : n° piste et secteur de la première liste pistes /secteurs 
Octets 16,17 : n° piste et secteur de la deuxième liste pistes / secteurs. 
Octets 30,31 : n° piste et secteur de la 9e liste pistes / secteurs. 


Le dernier buffer est le buffer entrée / sortie. Toutes les informa- 
tions stockées ou à stocker sur la disquette transitent par ce buffer. 


Voici deux routines qui permettent de lire un secteur de la dis- 
quette (son contenu est placé dans le Buffer E/S) 
- d'écrire sur un secteur le contenu du Buffer E/S 
le contenu du Buffer E/S 
- Mode opératoire pour lire un secteur 
- Autoriser l'entrée dans l’Overlay (interdire interruptions VIA) 
Charger # C007 avec le n° du disque 
Charger # C008 avec le numéro de face 
(0 = face À, 1 = face B, pour les lecteurs simple tête toujours 0) 
Charger + C009 avec le numéro de piste (0-40 pour les lecteurs simples, 0 
81 pour les double-têtes) 
Charger # CO0A avec le numéro du secteur (1 à 17) 
Appeler le sous-programme JSR + C24E 
le contenu du secteur sélectionné est dans le buffer. 
- Pour écrire un secteur : 
Procéder de la même manière, mais remplir le buffer E/S avant 
d'appeler la sous routine qui est cette fois-ci JSR 4 C246... 


A titre d'exemple d'application des notions évoquées ci-dessus 
voilà un programme qui permet de classer dans l’ordre alphabétique les 
fichiers constituant le catalogue. 


>2B8900,B8FD 

B800 D8 CLD 

B8Q1 78 SEI 

B802 A9?F LDA x#7F 
B804 8D0E03 STA #Q30E 
B807 ASQ] LDA x#01 
B803 8DFAQ3 STA #03FA 
B8QC 8D2?7C@ STA HCO0? 
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B80F 
B811 
B814 
B816 
B813 
B81B 
B8IE 
B820 
B822 
B824 
B826 
B828 
B82A 
B82C 
B82E 
B830 
B832 
B835 
B337 
B83A 
B83C 
B83D 
883F 
B841 
B843 
B845 
B847 
B84A 
B84B 
B84D 
B350 
B853 
B855 
B857 
B858 


A914 
8DA03C0 
A9Q2 
8D8ACO 
A3A0 
8D98Cca 
8550 
8552 
A3S5Q 
8533 
8555 
A912 
8554 
AS4F 
8551 
E6SI1 
204EC2 
6121213) 
BS@CFE 
9150 
C8 
DGF8 
A8a?2 
B150 
F@GE 
3808c 
8D29Ca 
C8 
B1:50 
8D8ACO 
4C30B8 
E651 
AGE 
C8 
B152 


LDA 
STA 
DA 
STA 
LDA 
STA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
INC 
JSR 
LDY 
LDA 
STA 
INY 
BNE 
LDY 
LDA 
BEG 
BMI 
STA 
INY 
LDA 
STA 
JMP 
INC 
LDY 
INY 
LDA 


x#H14 
#C209 
XHD? 
#COGA 
x*#00Q 
#CO008 
#50 

#52 
XH50Q 
#53 

#55 
4H12 
#54 
XH4F 
#51 

#51 
HC24E 
x#00 
#FEQ0,7Y 
C#H50),Y 


#B837 
xh02 
CH5@),Y 
#B853 
#B853 
#Ca083 


CHS5O),Y 
#CO0A 
#B830 
#51 
*#Q06 


CHS52),7Y 
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B85A 
B85C 
B85E 
B860 
B862 
B864 
B865 
B867 
B869 
B86A 
B86C 
B86D 
B86F 
B871 
B873 
B874 
B876 
B878 
B87A 
B87C 
B87E 
B880 
B882 
B884 
8886 
8888 
B88ñ 
B88C 
B88E 
B88F 
B891 
B893 
B895 
B897 
B899 
B89B 


D1:54 
FA@FS 
3811 
Age4 
B152 
48 

B154 
9152 
68 

3154 
C8 

Ca16 
D@F 1 
AS54 
18 

6912 
8554 
CSFC 
D@D3 
ASGG 
8554 
E6SS 
ASSS 
CSS1 
3QCD 
AS553 
835355 
A552 
18 

6912 
8552 
8554 
CSFC 
D@DB 
ASGQ 
8552 


CMP 
BEQ 
BCC 
LDY 
DA 
PHA 
LDA 
STA 
PLA 
STA 
INY 
CPY 
BNE 
LDA 
CÉG 
ADC 
STA 
CMP 
BNE 
LDA 
STA 
INC 
LDA 


CMP 


BCC 
LDA 
STA 
LDA 
ELC 
ADC 
STA 
STA 
CMP 
BNE 
LDA 
STA 


CHS4),Y 
#B857 
#B871 
x#04 
CHS52),Y 


CH54),Y 
CHS2),Y 


CHS54)J,7Y 


XH#16 
#B862 
#54 


*#12 
#54 
XHFC 
#B855 
£:1212) 
#54 
#55 
#55 
HS 1 
#B8S5S5 
#53 
#55 
#52 


x#H12 
#52 
#54 
XHFC 
#B874 
xHGQ 
#52 


B89D 
B89F 
B8A1 
B8A3 
B8AS 
B8A? 
B8A9 
B8AB 
B8AD 
B8AF 
B8B1 
B8B3 
B8B6 
B8B8 
B8BB 
B8BD 
B&Ca 
B8C3 
B8CS 
B8C? 
B8Cca 
B8CB 
B8CE 
B8Da 
B8D2 
B8D5 
B8D6 
B8D8 
B8DB 
B8DE 
B8EQ 
B8E2 
B8E4 
B8E6 
B8E8 
B8EB 


A912 
8554. 
E653 
A553 
8555 
C551 
SARA 
A950 
8553 
A9@@ 
8552 
20F2B8 
A914 
8D89C@ 
A9@2 
8DAACA 
2846C2 
E653 
A553 
CSS 
F81B 
20F2B8 
2121215 
B152 
8DA9C@ 
C8 
B152 
8D@ACA 
2846C2 
E653 
A553 
CSS 
D@ES 
A9@8 
8DFAG3 
AACa 


LDA 
STA 
INC 
LDA 
STA 
CMP 
BCC 
DA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
INC 
LDA 
CMP 
BEQ 
JSR 
LDY 
LDA 
STA 
INY 
LDA 
STA 
JSR 
INC 
LDA 
CMP 
BNE 
LDA 
STA 
DA 


4#12 
#54 
kS3 
#53 
#55 
#S 1 
#B8SS 
XH50Q 
#53 
xHQQ 
#52 
#B8F2 
XH14 
#CG@S 
xHQ2 
#CBGR 
#C246 
#53 
#53 
HS] 
#B8E6 
#B8F2 
É2:1212 
CH52),Y 
#CA009 


CH#52)3,Y 
H#COGA 
#C246 
#53 

#53 

#51 
HB8CB 
«#00 
HG3GFA 
xHCQ 
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B8ED 8N#E93 STA HO30E 


B8FuU 53 CCI 
B8F1 6à RTS 
5eF2 A0OG LDY xH0Q 


B8F4 B152 LDA CH352),7Y 
B8F6 9SJSOUFE STA HFEUD,7Y 


B8F3 C8 INY 

BSFA DOFS8 BNE #B8F4 
B8FC 60 RTS 

> J 


CLASCAT.BIN 


#+ indique un chiffre hexadécimal 
% indique adresse immédiat 


Le programme est logé des adresses + B800 à + B900. 
Le principe : le catalogue est lu secteur après secteur ettransféré 
en RAM utilisateur, puis on effectue le classement, enfin on enregistre le 
catalogue ainsi modifié. 


B801-B80B : préparation de l'entrée dans l'Overlay 

B80C-B81D : préparation pour lire le premier secteur du catalogue (tou- 
jours piste = 14, secteur = 02) 

B81E-B82F : initialisation des pointeurs dans le catalogue 50,51 : position 
de départ pour le transfert du buffer d'E/S en RAM utilisateur. Ici # 5000 : 
le catalogue sera transféré à partir de cette adresse. 

52,53 : pointe le premier mot à comparer 

54,55 : pointe le deuxième mot à comparer 

B832 : lecture d’un secteur catalogue 

B835-B83E : transfert du contenu du buffer E/S en RAM user. 
B83F-B854 : recherche si lien de chaînage et lecture des secteurs sui- 
vants le cas échéant. 

B855-B85F : comparaison de deux mots 

B860-B870 : inversion des deux mots si le premier plus grand que le 
second . 

B871-B8AA : mise à jour des pointeurs (52,53) et (54,55) ; le tri employé 
est le tri à bulle 
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B8AB-B8BA : préparation du transfert inverse de # 5000 à buffer entrée/ 
sortie ; transfert 

B8BB-B8C2 : écriture du premier secteur du nouveau catalogue 
B8C3-B8E5 : recherche et écriture (le cas échéant) des secteurs suivants 
B8E6-B8F1 : remise en condition normal, retour au basic. etc. 
B8F2-B8FC : S/ programme assure le transfert d'une page de la mémoire 
user à la mémoire Overlay. 
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REPERTOIRE DES INSTRUCTIONS 
DU TDOS 


! SAVE «(numéro de disque.)nom du fichier(.type)(,AD,AF)» 


Cette instruction permet de sauvegarder des fichiers de type 
BASIC ou de type BINAIRE. 


Numéro de disque : il s’agit de l'unité dans laquelle se trouve pla- 
cée la disquette sur laquelle le programme en question sera sauvegardé. 
Par défaut, ce numéro est 1 (cas des possesseurs d’un seul lecteur). Pour 
les autres, l'unité concernée devra avoir été préalablement montée (par ! 
MOUNT «numéro de disque.>). Ne pas oublier le Point . après le numéro. 


Nom du fichier : il s’agit du nom sous lequel sera sauvegardé le 
fichier et qu'il portera dans le catalogue. Ce nom doit obéir à la syntaxe 
habituelle ; en particulier, il ne doit pas comporter d'espace. Ce nom sera 
dans tous les cas tronqué à 8 caractères. 


(.type) : cette indication n'est pas obligatoire pour un fichier 
BASIC, c'est-à-dire pour un programme BASIC. Elle est par contre indis- 
pensable pour un fichier BINAIRE, c'est-à- dire pour une zone mémoire de 
l'unité centrale. Celle-ci peut être une suite d’octets ou bien un programme 
en langage machine. Par commodité, on peut utiliser les types : 
BIN,DAT,TXT dans le premier cas, le type : CMD dans le second. Seuls 
les fichiers binaires de type : BIN ou CMD sont exécutables. 


(,AD,AF) : Dans le cas d’un fichier BINAIRE il faut préciser dans 
la commande l'adresse à laquelle débute la zone mémoire que l’on veut 
sauvegarder. Cette adresse est ici symbolisée par AD, cette quantité pou- 
vant être un nombre (exprime en décimal ou en hexadécimal) ou bien 
encore une variable. De même, AF symbolise l'adresse de fin de zone 
mémoire à sauvegarder. 
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L'ensemble des quantités situées entre guillemets peut être rem- 
placée par une chaîne. 


EXEMPLE 1 

A$=«FILTRE» 

A$= «2.» +A$ 

! SAVEAS 

Cette suite d'instructions permet de sauvegarder sur le lecteur numéro 2le 
programme BASIC en mémoire sous le nom : FILTRE. 


EXEMPLE 2 

| SAVE«CARACTER.BIN, +B400,+B800» 

Cette instruction sauve sur disquette (le premier lecteur par défaut) le jeu 
de caractères standard de l'ATMOS. 


REMARQUE : Cette instruction ne peut pas être utilisée pour les 
fichiers à accès séquentiel ou à accès direct (créés par ! CREATE), 
conservés dans le catalogue sous le type : DAT (data). 


| LOAD«{(numéro de disque.)nom du fichier(.type)(,AD)» 
numéro de disque : voir instruction ! SAVE 
nom du fichier : voir instruction ! SAVE 


(.type) : pour un programme BASIC, le type .BAS est facultatif. 
Pour un fichier BINAIRE (type BIN,TXT,SCR,DAT ou CMD), il est obliga- 
toire. Dans ce dernier cas, il y a deux possibilités : soit le fichier sera 
chargé à la place qu'il occupait au moment de son ! SAVE (cas d’un fichier 
SCR, qui se replace automatiquement en mémoire vive écran, et qui a été 
sauvegardé par ! LSCR ou ! HSCR(, auquel cas l'indication suivante (,AD) 
n'est pas obligatoire, soit on désire le charger à un endroit différent, et la 
suite de l'instruction : (,AD) doit être fournie. 


«(numéro de disque.)nom du fichier(.type)» 

Cette instruction permet de charger un programme et de le lancer. 
(numéro de disque.) : Numéro de l'unité de disque concernée (1 à 4);sa 
valeur est 1 par défaut. 

nom du fichier:voir instruction ! SAVE. 

(type) : L'indication .BAS est facultative pour un programme BASIC. Elle 
est par contre obligatoire pour un programme en langage machine (type 
.BIN ou .CMD) exécutable. 
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EXEMPLE 1 
! «FILTRE» 
Chargement et lancement automatique du programme BASIC FILTRE 


! SEARCH «(numéro disque.)nom fichier.type» 


Cette instruction permet de s’assurer de l'existence d’un fichier. 
(.type) est obligatoire même pour un fichier BASIC. Cette instruction est 
particulière dans la mesure où sa seule conséquence est de déclencher 
l'émission d'un message d'erreur. 


NE immédiat mode programme mode programme 
+ !'ERSET 
£ | “EXISTINGFILE” “EXISTING FILE” 
ë 
“FILE NOT FOUND” 


ÿ en + 489 


le il 


| SEARCH 


“FILE NOT FOUND” 


iln'existe 
pas 


ÿ 7en + 489 
puis ge Ready Break le programme 
Ready se poursuit 


| LOCK«{(numéro disque.) nom fichier.type» 
| UNLOCK «(numéro disque.) nom fichier.type» 


Ces 2 instructions permettent respectivement de verrouiller 
(déverrouiller) un fichier sur disquette. (Indications : Let U dans le catalo- 
gue). Un fichier verrouillé ne peut : 

- être effacé par ! DEL 
- être écrasé par ! SAVE 
- être étendu par ! WRITE 


! DEL «(numéro disque.)nom fichier.type» 


Cette instruction permet de détruire (et donc de faire disparaître 
du catalogue) un fichier non verrouillé et ainsi de récupérer sa place sur la 
disquette. 


| RENAME«{(numéro disque.)NOMA(.type)=NOMB(:type)» 


Cette instruction permet de changer le nom d’un fichier présent 
sur la disquette (ancien nom = NOMA, nouveau nom =NOMB). Le type 
reste cependant le même. Seul le DOS, dont le nom a été fourni au cours 
de l'instruction ! MASTER, ne peut être modifié par cette instruction. 
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| DNAME «(numéro disque.)nom volume» 


Cette instruction permet de modifier le nom qui a été donné à la 
disquette lors de l'instruction ! INIT. 


! «FORMAT» 


Il s’agit-là d’un utilitaire BASIC, permettant de formatter une dis- 
quette, c’est-à-dire de la découper en secteurs et en piste. Cette opération 
est conseillée (ainsi que ! INIT) pour « régénérer » une disquette déjà utili- 
sée. Ce programme, situé sur une disquette d’utilitaire ne lui fait courir 
aucun risque (contrairement aux apparences..), tant que l'indication 
« changez de disquette » n'apparaît pas. 


! INIT «(numéro de disque.)nom volume» 


Cette commande est la suite logique de ! «FORMAT», mais c’est 
le TDOS situé dans la RAM en Overlay qui l’effectue. Celui-ci devra au 
préalable avoir été chargé. C’est la disquette située dans le lecteur qui 
sera alorsinitialisée ; atttention, car cette opération détruit tous les fichiers 
présents sur la disquette. Son rôle est d'’initialiser le catalogue. 


! MASTER «(numéro de disque.)nom du DOS» 


Cette instruction permet de transférer le DOS (préalablement 
chargé) présent en RAM, sur une disquette fraîchement formattée etinitia- 
lisée. Elle doit prendre place immédiatement après ! INIT. Une telle dis- 
quette devient alors « maître », c’est-à-dire autonome et capable elle- 
même de charger le TDOS en RAM, après le BOOT. 


! CAT «(numéro de disque.})>» et ! LCAT «(numéro disque.)» 


Ces instructions permettent de lister le catalogue sur l’écran 
(! CAT) ou sur l'imprimante (! LCAT). Le catalogue est l’ensemble des 
noms des fichiers présents sur la disquette et leurs caractéristiques : 


nom 


LouU fichier type S ou D XXXSECTORS 

a D ane a 

protégés accès séquentiel occupation sur 
ou non ou direct la disquette 
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Un appui sur la touche d'espace permet d'interrompre le listing ; 
à chaque appui suivant, un nouveau fichier sera dévoilé. Poursuivre ainsi 
qu’à l'apparition de Ready, un «Return» interrompt le catalogue. 


! MOUNT «(numéro disque.)» et ! DEMOUNT «(numéro disque.)» 


Ces 2 instructions, aux effets opposés, permettent de signaler au 
TDOS l'existence (ou la disparition) de lecteurs en ligne, distincts du pre- 
mier. Il est conseillé pour les utilisateurs possédant plusieurs lecteurs de 
placer l'instruction ! MOUNT dans le programme ! START. L'oubli de cette 
commande est signalé par le message d'erreur : «DRIVE NOT IN LINE». 


| COPY «(numéro disque.)nom fichier A (.type) = (numéro disque.)nom 
fichier B (.type)» 


Cette instruction permet de dupliquer un fichier, soit sur une 

même disquette (il faut alors changer de nom ; dans le cas contraire, il y a 

évidemment émission du message d'erreur «EXISTING FILE >), soit sur 

üne autre disquette. Les caractéristiques à gauche du signe = sont celles 

de la source (émetteur), celles à droite sont celles du récepteur. Voir le 
‘texte pour les fichiers en langage machine. 


!CUT N 


Cette instruction permet (pour un programme BASIC situé en 
mémoire centrale) de supprimer toutes les lignes à partir de celle de 
numéro N. Toutes les variables sont conservées au cours de cette opéra- 
tion. 


! MERGE «(numéro de disque.) nom du programme» 


Cette instruction permet de chaîner un programme sur disquette 
à un programme existant en mémoire centrale, dans la mesure où toutes 
les lignes de celui-ci ont des numéros inférieurs à celles de l'autre. Cou- 
plée avec ! CUTN, cette instruction puissante permet de faire tourner des 
programmes BASIC distincts simultanément, ou bien dont l’'encombre- 
ment serait supérieur à la place disponible en mémoire centrale. Dans les 
cas délicats, l'utilisateur aura intérêt à employer l’un des nombreux pro- 
grammes de rénumération que l’on trouve dans la littérature. 


l«TKD» 


Il s’agit-là d’un utilitaire qui permet de transférer en bit à bit des 
informations d'une cassette sur la disquette. Les programmes concernés 


204 


ne seront par la suite à modifier que s'ils font appel eux-mêmes aux lec- 
teurs de cassette. Dans les cas les plus simples : 


CSAVE à ! SAVE 

CLOAD $ ! LOAD 

STORE à ! MSAVE 

RECALL à ! MLOAD 

| LSCR «(numéro disque.)nom du fichier» 


Cette instruction permet de sauvegarder un écran texte, tel qu'il 
apparaît. Elle est l'équivalent de : 
! SAVE «(numéro disque.)nom du fichier.SCR,#+BB80,+BFDF» 


Pour quelle ne soit pas elle-même sur l'écran, elle peut être, soit 
incluse dans un programme, soit tapée de façon invisible (encre de la cou- 
leur du papier) par ESCAPE + code de couleur d'encre). 


| HSCR«(numéro disque.)nom fichier» 


Permet de sauvegarder sur disquette un écran haute résolution. 
Elle est l'équivalent de : 
|! SAVE«(numéro disque.)nom fichier. SCR,#A000,#+BFDF» 


Tout comme son homologue ! LSCR, ces écrans peuvent être 
récupérés de la manière suivante : 
- se placer dans le mode adéquat (TEXT) ou (HIRES) 
- appeler l'écran par : 
! LOAD «(numéro de disque.) nom fichier» 


! MSAVE «(numéro disque.)nom fichier = nom tableau» 


Permet de sauvegarder un tableau (ou une matrice). Le nom 
fichier est son nom tel qu'il figurera dans le catalogue, nom tableau est le 
nom qu'il porte dans l'unité centrale. Ainsi, un tableau A défini par À 
(10,10) sera sauvegardé par : 

! MSAVE«TABLEAU=A» 


Les tableaux d'entiers (A%) et de chaînes (A$) seront sauvegar- 
dés de la même manière. 
! MLOAD «(numéro disque.)nom tableau» 


Permet de récupérer un tableau préalablement stocké sur dis- 
quette. Le tableau récepteur devra avoir été dimensionné ; les dimensions 
seront de préférence identiques à celles du tableau émetteur. 
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! CREATE «(numéro de disque.)nom fichier, S = NLU» 


Cette instruction crée et ouvre un fichier à accès séquentiel (S) 
portant le nom : nom fichier sur la disquette (de type : .DAT) et le numéro 
logique NLU vis à vis du TDOS. Dorénavant, et tant qu’il n’y a pas eu de 
! CLOSE, toutes les opérations sur ce fichier se feront par l'intermédiaire 
de ce numéro logique. 

(1<NLU<255). Ainsi, NLU résume 


numéro disque 
l'ensemble des 3 paramètres nom fichier 
séquentiel 


! OPEN «(numéro disque.)nom fichier = NLU» 


Cette instruction ouvre (elle permet don 2e lire et d'y écrire) le 
fichier de nom : nom fichier, en lui attribuant le numero logique NLU. Seuls 
16 fichiers peuvent être ouverts simultanément. 


! CLOSE NLU 


Cette instruction ferme le fichier de numéro logique NLU. A partir 
de là, toute opération sur ce fichier est impossible, jusqu’au prochain 
! OPEN. Il est vivement recommandé de fermer tout fichier dont on n’a plus 
besoin, en particulier avant d’éteindre l’ordinateur. ! DEL sur un fichier non 
fermé peut avoir des conséquences imprévisibles ! CLOSE 0 ferme la 
totalité des fichiers en cours. 


! WRITE NLU'< liste de variables>ou 
! WRITE NLU : REM<liste de variables [pour ORIC 1] 


Cette commande permet d'écrire dans le fichier NLU à l'enregis- 
trement courant la valeur des variables dont le nom est situé entre les  : 
celles-ci y sont séparées par des virgules. Chaque variable correspond 
alors à une rubrique ; la liste des variables à un enregistrement. Une varia- 
ble numérique réelle occupe 17 octets, entière, 8 octets, de chaîne, sa lon- 
gueur + 2 octets. Une variable ne peut être un élément de tableau. Une 
rubrique peut être écrasée, ceci sans bousculer le fichier : la première écri- 
ture d’une rubrique impose sa longueur future (et définitive). Cette instruc- 
tion est inhibée par ! WL et validée par ! WUL. 
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ITAKE NLU' : liste de variables > 
Syntaxe identique à ! WRITE. 


Une variable chaîne doit cependant avoir vu préalablement son 
nom créé. Ainsi si A$ n’a jamais été utilisé auparavant, ! TAKE NLU’A$ 
doit être précédé de A$ = «>» ; dans le cas contraire, le message d'erreur 
« MISSING VARIABLE » est affiché. 


| REWIND NLU 


Cette instruction permet de positionner le pointeur de rubrique au 
début d'un fichier à accès séquentiel. Ainsi, la première rubrique est prête 
à être lue ou écrasée. 


! REWIND Ÿ repositionne la totalité des fichiers ouverts. 


! APND NLU 


Cette instruction positionne le pointeur de rubriques en fin de 
fichier, à la première rubrique non écrite. ! APND 0 effectue cette opération 
sur la totalité des fichiers ouverts. 


! WHERE NLU 


Cette instruction n'a aucune conséquence directe. Cependant, 
après son exécution, on trouve en + 48 D la position du pointeur de rubri- 
que et en + 48 F le nombre total de rubriques du fichier plus un. Ainsi, pour 
un fichier de 17 rubriques, dont on vient de lire la quatrième : 

! WHERE NLU 
PRINT PEEK (# 48 D), PEEK (#48 F) 


Conduit à :5 18 


! JUMP NLU, A 
Permet d’incrémenter de A le pointeur de rubriques. 


rubrique n° N N+A 


pe ! JUMP NLU,A _ À 
A = Dest interdit, ainsi que « 0. Cependant, si une telle éventua- 


lité peut se produire accidentellement, elle peut être neutralisée par 
| ERSET. 
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! ERSET et ! EROFF ; ! ERR GO TON 


Ces deux premières instructions permettent respectivement 
d'empêcher et d'autoriser l'émission de messages d'erreur, et de poursui- 
vre (ou d'arrêter) l'exécution d’un programme le cas échéant. Une erreur 
masquée par ! ERSET doit être traitée : l'instruction suivant celle qui peut 
engendrer l'erreur est alors la troisième. Dès son utilisation, l'emplace- 
ment mémoire 4 489 contient le code corresondant à l'erreur. 


Ces instructions ne permettent de traiter que les messages 
d'erreur du TDOS, et non ceux du BASIC. 


! WE NLU et ! WUL NLU 


Permettent respectivement d'empêcher et d'autoriser l'écriture 
dans un fichier ouvert. Cependant, elles ne peuvent s'opposer à un ! DEL, 
contre lequel la seule protection est ! LOCK. 


! CREATE «(numéro disque.)nom fichier, D = NLU,LR,NE» 


Création et ouverture d’un fichier à accès direct, de numéro logji- 
que NLU. LR est la largeur d’un enregistrement compté en octets (1 réel = 
17 octets, 1 entier = 8 octets, 1 chaîne = sa longueur + 2), NE le nombre 
d’enregistrements prévus. Ce dernier paramètre n’est cependant pas limi- 
tatif : un fichier à accès direct peut être prolongé par un fichier à accès 
séquentiel. 


! WRITE NLUL,E’ <liste de variables > ou 
! WRITE NLU.E: REM < liste de variables > [pour ORIC 1] 


Permet d'écrire à l'enregistrement E (E<NE + 1) la valeur des 
variables situées entre les +, et séparées par des virgules. Un enregistre- 
ment est toujours écrit (ou écrasé) dans sa totalité. La partition des rubri- 
ques n'est pas rigide ; seule compte la longueur totale de l'enregistrement 
(en octets) telle qu’elle a été définie par ! CREATE. 


| TAKE NLUL.E’ <liste des variables > ou 
! TAKE NLULE: REM <liste des variables > [pour ORIC 1] 


Permet de lire dans un fichier à accès direct, à l'emplacement E, 
la valeur des variables dont la liste est donnée entre les crochets +. Cha- 
que enregistrement est lu à partir du début. 


{« BKP » 
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Il s’agit d'un utilitaire, permettant de copier intégralement une dis- 
quette sur une autre. C’est éventuellement la seule manière de copier un 
programme en langage machine se logeant en page 400. 


CODE 


ÔODUOUBON- 


TABLE DES MESSAGES D?ERRELUR 


MESSAGE 


EXISTING FILE 

DRIVE NOT IN LINE 
PROGRAM TOO LARGE 
FILE TYPE MISMATCH 
DISK FULL 

1/0 ERROR 

FILE NOT FOUND 

WRITE PROTECTED 

RANGE ERRPR 

SYSTEM ERROR 

SYNTAX ERROR 

TOO MANY OPENED FILES 
FREE MEMORY UNDERFLOW 
MISSING VARIABLE 

END OF FILE 

OÙT OF DATA 
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REPERTOIRE DES INSTRLUCTIONS 


Abreviations: 
NL: numéro de lecteur de disquette de 1 
a 4 
NFICHinom du fichier pris au sens large 
TYP: type du fichier ;ARY,BAS,;BIN, CMD, 
DAT, SCR, SYS, TXT 
AD'adresse de debut du bloc 
AF ‘adresse de fin du bloc 
NLU numéro logique d’un fichier 
(): argument optionnel sous conditions 
S'il est omis le dos choisit une 
valeur par defaut.Sauf indications 
contraires les Valeurs par defaut sont: 
-1 pour NL 
-BAS pour TYP 


Liste des instructions du TDOS 
A Opérations sur les disquettes 


DINIT'CNL,) NOM DISQUE" 
OMASTER'"CNL,.) NOM DU TDOS DANS LE CAT" 
ODNAME'"CNL.J NOM DISQUE" 
ICAT'ONL. D" 
SLCAT'CONL. D" 
SMOUNT'NL." 
CDEMOUNT'NL. " 
YCOPY'"'CNLE. INFICHAC.TYPJ=CNLR, JNFICHBC. 
TYP) 
NLE=numéro lecteur émétteur 
NFICHA=nom du fichier à copier 
NLR=numéro du lecteur recepteur ;3NLR 
peut être egal à NLE 
NFICHB=nom du fichier crée 


B Opérations sur tous les fichiers 


YSAUE'"CNL,) NFICH C.TYPJC,;AD,AF)" 
SLOAD'"'CNL,J NFICH C.TYP)C, AD)" 
D'CNL,) NFICH C.TYP)C, AD)" 
QSEARCH"'CONL.) NFICH,TYP" 
QLOCK'CNL.J NIFICH,TYP" 
JUNLOCK'CNL.J NFICH,TYP" 
QDEL'"CNL,) NFICH,TYP" 

UMERGE"CNL.) NFICH" 
SRENAME""CNL, INF ICHAC.TYP)I=NFICHB(.TYPB) 
NFICHA=nom du fichier à renommer 

NFICHB=nouveau nom 
TYPB=nécessaire si différent de TYP 
TYP ne doit pas être SYS 
[CUT N 
N=numéro de ligne 


C Traitement des erreurs 


QERSET 
2EROFF 
SERR GOTO N 
N=numéro de ligne BASIC 


D Traitement des fichiers de données 


WE NLU 
SWUL NLU 
SOPEN'" CNL. INFICH=NLU" 
SCLOSE NLU 
Si NLU=Q tous les fichiers ouverts 
sont fermés 


E Traitement des fichiers à accés 
sequentiel 


QCREATE'"CNL.) NOMFICH,S=NLU" 

IWRITE NLU’<liste de variables» 

JWRITE NLU:REM<liste de Variables) 
Seule la 2ieme syntaxe est Valable 

pour L'ORIC 1 

TAKE NLU’<liste de variables)» 

TAKE NLU:REM<liste de Variables» 
Seule La 2iéme syntaxe est Valable 

pour l’ORIC 1 | 

SRENIND- NLU 

SAPND NLU 

SUHERE NLU . 

UJUMP NLU,NI 

NI=nombre d’incrémentations du 

pointeur 


F Traitement des fichiers à accés 
direct 


OCREATE'"CNL, JNFICH, D=NLU, LR, NE" 
LR=longueur d’un enregistrement 
NE=nombre d'enregistrements reservés 

a l’avance 

QWURITE NLU,E’<iiste de Variables» 

QWRITE NLU,;E:REM<liste de variables) 
Seule La 2iéme syntaxe est valable 

pour L'ORIC 1 

2TAKE NLU,E’<liste de Variables» 

0TAKE NLU,E:REM<liste de Variables» 
Seuie la 2ième syntaxe est Valable 

pour L’'ORIC 1 


G Opérations sur les matrices 


QMSAUE'"CNL.) NFICH=NOMAT" 
9MLOAD'"CNL.) NFICH=NOMAT" 

NOMAT=nom de La matrice en mémoire 
centrale 


H Sauvegardes d’écran 


SLSCR'CNL, INFICH" 
LHSCR''CNL. INF ICH" 


I Utilitaires divers 
Q "FORMAT" 

Q'"TKD" 

g'BKP" 


"COPY" 
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